(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     94979,       1820]
NotebookOptionsPosition[     94232,       1793]
NotebookOutlinePosition[     94580,       1808]
CellTagsIndexPosition[     94537,       1805]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Endogenous destruction of zombies", "Section",
 CellChangeTimes->{{3.856530475239334*^9, 3.8565304880229716`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "MAP", "]"}], ";", 
  RowBox[{
   RowBox[{"MAP", "[", 
    RowBox[{
    "a_", ",", "\[Alpha]_", ",", "\[Delta]_", ",", "\[Rho]_", ",", 
     "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{"\[Delta]", "+", "\[Sigma]"}], "\[Delta]"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", "*", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{
          SqrtBox["a"], "-", "a"}], ",", "0"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Rho]", "+", "\[Delta]", "+", "\[Sigma]"}], ")"}], "*", 
       "a"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8565305173102913`*^9, 3.8565307436296563`*^9}, {
  3.8565320055668864`*^9, 3.8565320132854633`*^9}}],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"MAP", "[", 
       RowBox[{"a", ",", "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]"}], 
       "]"}], "\[Equal]", "0.6"}], ",", 
     RowBox[{
      RowBox[{"MAP", "[", 
       RowBox[{"a", ",", "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]"}], 
       "]"}], "\[Equal]", "1"}], ",", 
     RowBox[{
      RowBox[{"MAP", "[", 
       RowBox[{"a", ",", "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]"}], 
       "]"}], "\[Equal]", "1.5"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0", ",", "0.7"}], "}"}], ",", 
   RowBox[{"ContourStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", " ", "Plain"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", "Dashed"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", "Dotted"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "18"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.856530860541602*^9, 3.8565309794012947`*^9}, {
   3.8565310412400303`*^9, 3.856531190107659*^9}, {3.8565312872104993`*^9, 
   3.856531287444685*^9}, {3.8565314187266183`*^9, 3.8565314304575458`*^9}, {
   3.856531617871108*^9, 3.8565316414821043`*^9}, {3.8565316738895893`*^9, 
   3.8565317245276337`*^9}, {3.8565318070496373`*^9, 
   3.8565318185173817`*^9}, {3.8565320312169647`*^9, 
   3.8565321249322395`*^9}, {3.8565321845577307`*^9, 3.856532249170537*^9}, 
   3.856532300241601*^9, {3.8565323612564793`*^9, 3.8565323888715105`*^9}, {
   3.8565328149272785`*^9, 3.8565328438751707`*^9}, {3.8565329720892315`*^9, 
   3.856533146957237*^9}, {3.856533199328477*^9, 3.8565332169528933`*^9}, {
   3.8565422567680254`*^9, 3.8565422816754007`*^9}, {3.8565423589854193`*^9, 
   3.856542362254668*^9}, {3.8565424308826957`*^9, 3.8565424376648054`*^9}, {
   3.867953696890752*^9, 3.867953706095681*^9}, {3.8679549425668163`*^9, 
   3.867954943066727*^9}, {3.867957234471536*^9, 3.8679572715342865`*^9}, {
   3.8679573218103867`*^9, 3.8679573267800865`*^9}, {3.8679573658744707`*^9, 
   3.8679573801468124`*^9}, {3.91227581053734*^9, 3.912275845614425*^9}, {
   3.912275933654272*^9, 3.912275934890955*^9}, {3.9122759723156033`*^9, 
   3.9122760186011295`*^9}, {3.912276048732419*^9, 3.912276064493845*^9}, {
   3.9122760990870867`*^9, 3.912276133608207*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxFWgc4lf/7VhoIhQZlpCQ0SGWl7kqIjIq0d1RCqTTIViHKnkn2iJSkEnHs
vdcxzzlkZu+V//n3Pd7fe7murk8v7/t5xud+7ud+XuFrd0/qL2ZiYhJgZmL6
/38XLn6e2/7zW0JREuVjfTvVHv/973tEs6v9VOp6haD87VH1Fu/gIaL2/z+I
eV7c5sAUhDGS6l1LigeK/11vsTNmY+Dv676Q2cebNX4tEI3JxvSfQKiMyO03
kw/AmLt88Sf/IPj/dyF5nloeXvQe89LvJl1e+zGeHwqHQxHl2vW+MG7yLBY+
HgGDf5cPUtQlLfmVI9GtWe28Y84bpndlKge7oyH1m2xUN+bFeN8HaHzIKfn1
1xOTyk6CngJx2NG+/ZrmR08sXaym2H8vHrv/XZ6M9yUijn+bZKKwOz7ePM5+
7WkS7E6tTlVOeYN/j2tMhn8L8xNOJ1e8j9vqV7z5J2P/TjCcf6aeefknthVJ
GL6478TwG9PBRb4xbh/i6xHiUBoVnTbP8E89FKweczvazuPbJw7NV131MLvS
VfhVaR6u3MLrApeTGe/7i0HRft4fcmTYPpE/vD3qL5Kj7cVNj5Ph9m+/f1Fu
9EJpjw0ZVyLfP1Ff85exHzIspKatWMvmoBab/fnBTzLu/Nv+HB7mrC+/l0/G
QUG/0VTbObAoXno00UYGZe5Hpv7ELFjnglaJbW3Apn/hncU2d5MYifMN2J9i
esRDeBZb7lReNvBuwCPeD9pBX2YgcqR5XK+iAeR/G57BhVdFGkJjDeC4dlee
pjED2qayZMWljfAkn5+8NTUN6X/+bkTSP/umsalux5WHSo3gb/xQt+/pNCb0
06ZfPGpk2DeNzPwRar57I3bPHtCYqJtC17uH+REVjXjgIM+bHTUFNh2BU609
jVjW9ljvm90U5v9djVD9F9ApnHjO+ZaypwlXl9Gui9ROQkSRNX3+UhPDvklk
LcmyrH3ZBIetY3ut108y4tOEz3dy1MOXT+KKFDXQuq4Jf/89dwJSrjpdp5ua
ULWm1OvWnwmwWLReU+hqwrg6lfme3ATOloXIMWs34+s/+8YRJN729YtjM7aF
7dGr+TXOiE8zZgZfFv64M46dgq82LClsxpZzauTqvjH4aPm/vcvXAqN/8RoD
v6hrea58C5jiu1PV34/h7RlzljKVFtzb+2p/oMkY4zy04Og/e8fQIrFtTYVX
CyoNrgqK1YzCVfzUxJLsFmz+Z+8ocq+bdeYOtsA4OKHxnfgoIx6t+LLos08T
+yikyiYq9yi3QuVt2v11jSMo/SW+vdWgFQ3/4juC8+rcEV/iWlGzgTeb98gI
JM79VE7NaQVtZMLWvX+Y4f9WRv4O443WqUqTZRSwD3VsZLUcRmp0iJSOCAXu
/+I7jJzF2ma/ZSigJsbvPZg6xLCHghCNm7f8vg8h/OtHWtBNCkSk7gWZfR4C
74cbH3YYUhj2DqEjqbIo0J+CVexf5l4PDyLi53Wrwhj67/+zdxDH5h+7vSym
YMUQV7aF+yAjvhS0H9nHRds5iPdrlfCuj8KI7wDOOVCOX5inoOuH0MEDTf1I
OXZepkeail11ctybG/vhYLWDh283FWOuYwHuDf0M/1EZ8epD/+/S+T4DKriX
0oL26/ZhR1ej25rHVOiLySynvf3DiD+VEY8/uLVRjt0jkIqLh5xNSRW9oPps
1gpKpTL83QujHwnGOuVU0BzjzLVu9jBwhYY5k3Pel3R6QI5s1fRipsHeNlgo
fksPlLc7lt5mpzH8041bst0SxQo0aH4NlLpc3gVOvnKB/qP0+zEHb1Nluhj+
pjHi1ontKY6TZfdokO+ISUnX7kSekmMS/xsaI54d0NkzL2cUSYNrjKxU2PIO
hj9pCFJyFNxT+RtKnxPYLtfSwEbp/6Z85je8d8n7d/bRGPFoxx3xa/pnuNrA
M3TCJ0i7HZ6qMq+bN7RB7catz0VVbQw8bmPgdxvs+24ay6q04bfGqN35IhqO
29YY515pY+A1DV5XnGoOmbdB0f1cUK87FQH//NsGPvnLHLuPUnE9RbWFK7IN
Fmx1tE1fKBg4VXpdk9TG8CMFyVWbNP1b6L9/wvpowONW/DVXMxDuasOzQ+aj
zFdbGL/XDpN/G2rGsl0+Rww52xGq+VGGW6gZ5bz7mN3Wt2M3WfrJkbNNkOFT
zJcTb2fsvxEDxtPrTuxrh3PxecWItAZIx4o7+Ki2o1L/CWXRLjLyXjooy99o
Z8SLjPyu/cqs+u3Ilrp99KsgGQOlT35cpq+X+adM+XGQGfFqZ8SjFuMbslfy
OrfjJN/Uhw8/a3D3Bu8B04B2XFmau3xTfA1Wpocd0AxsZ/i/GsLWj3mdY9rx
LMCQbdlAFRQ55aMVPrWj7fMqky7fSiirDgotSW9n+LcSPMakc/6kdvjP7VXe
sqoS19jtT1ZltuPf40QqYCV5u427sB16wcvj+jzLUfIvH9oht++6sDZnOSQm
2MiaZe0MP5bD8OG2xV/pa9mreYHPG8twbDS7a46+lv7r57/Cvwgrru839C1f
8F8RrGYlz0fR1773ZR6xHSnCFcXGo/fp606uif0WRwuJ9+0uOiPEcTwPS/dF
P/DLXPBPLpgNjv6up9tj9O30/dtjOYh6usc47ns7jMUkaqs6svCYP0YpILod
94ft9i1+k8nInwX7M9HXo67h6NOOyYO/Bm4PZaBnRK7/qcOCPRmIOaCjG2jW
jrUevZ9TT/wi4qNuYN3j9iMVL6oGo6mnF+z5iT2iOkNH1en50Bj8ssjsByPf
2+Ftla5xZdd3PKpku75fpJ3gGwnkHAEl7nacHy+1kQj+SuSjQl6azEOpJCT8
DhD42NOGMYs395beSWT4o43gM8ZLTx90LWxDZ4yEGWvoJ+T8bL3GH0c/V0w3
r5Y9SyDOywJfenyBZeWKu21wFM46f68nFo/7C52Vb9Pv38/jIAnE4nhWx1KO
y21gzs7x3vAhkjivC3yNfL5SbM00DVI53ou1V76H2g+RViUyDc7xq6Oa8t8R
eLEyOr2/LC4QiollrW1faKh9R3FUK/JBjEjn3ykXGqb7itnHRz0IfNqg+6bH
w9MFaUHf/G4coOHx7r7yDYK2BB4u8NfpqbUJa0OoOK4x1Ky9rggPClaIvlE3
hwY5VeeEfgFublBalWnyDIqLSbkvdhVg/oRJ0chiS0yHVlzm7c7HKw6571bb
LCHpxxy0TScPK3afMP100JrIp8DGgR8XtWxgPTy+8YB8Lu7r7vJeYmsD5T3k
ka9aOZhkuW+iu9kW3b37VdKcsiHdXtQ6q2oHFZ2JPBbHLBzMu15VGmyHGeGS
F1fPZGGHnYW8SqYdkW+Zti3li/QdMJT70Hv/HRKUXbc+Gf7lgDe0GeempAyY
H1B/kxv+HMzr4n8YTaXjXsLE2ob8F/glkblvi+1P9ArHn9l13YnINxXWY0Fr
jJzA5nDll8j/1/FWXhW1I+aQu+zIId/bgrfCp67dmDGH/Tj/s4e0FnAXVbf4
CFtAX3ajTWAd/f7fjDZ2QQvIVtwL1qtqhvfa5Vmc0c8IPHy4vO582GZLKN9J
91ru3QyxTHb2w3yW+JHj+yw8vQmPbuYliN6ygkdhtMQTlyaEPT+SnqtiDaTM
ndh3ks671htU3dpjjeeWuXHUJDqPMzKvGFhnQ+Cn291Jh73JNjimtsP8HG8j
RGU0PXZ/tGHEowH1S2SkXSg2UNsbtok5tgF3+zd/S2W1RfJTv7lozQb4vfGo
nGiyhXPLL3shMhnb/csa6upskZdGOsscSMalLK30O+x2BP7mmdd7rdtgjwMk
gyUDXvXIKOD9JLHOHvPqX2pH3tSjvc9c1YV+n2NqZfH0bB3Oxrw8eNzYAVc3
lk7ZOdXBSvZdyktDBxxyaz5noFYHIUutZX8KHAi8FrvOQaIWP0duj9zPIYda
JD6xLJwqf46pnKv9OtM1SNIT8uiLeIHC7IpJme81EPE1Vzqn8hKhypV5snY1
0L7vf5pN4yUqnjxmnY2qhsnx7QUekY4Evuvl5breaHTEeJ2viI1tNQrvm+4O
bHaEoYBN/NqV1US/8p9/q6Aj+epl74AzqjXen3ziXglV8XLm2CwXAv8plk+u
b7F2xYklOlx7aioQUzaxXyjuNYH/uqHqB12E3MATou3zK6Ece384r50MdyPw
3uDDQ82RXR4ILjqkffZbCTYpfI/13OOJ8IsGq/O/liAoV3WHjIwngff370gc
jTX2hlII27OMY4UYFHd4nWTsg2s6BwyzDhfixdpeRaUnPox4FWDwRVzB3zpf
qK+nLJL2zyP6ydvCvIsl1+ch003J6LhaAHF+D4q0FDZ+CECOSLL7Dr5c3Jtf
dMvmRyD0Lh6RDPHJwdC7YQG3+28Z/syGw8TKK98k38E6f4B6YUs2pP7KcS8p
ewcj5rqLy55mEf3xwvmNPy8k/FUmBNe3Mivlm5FwxnCJ+7EVoWjKZPaXeZLB
wMswon4obHN01akKQ88dYdvxDb/gVDQ34sETgcUXma54nU5l4F8kcZ7/uG9X
T9geheU5cvICzT/Q6/SQc6dtNAy/laXFJH5n2B9D1A/trY/2n3z9AUjmcWbZ
mgyP+YPTz7XiEFB9KZ3DLAnTsnW5TeYf0R7lrPta+QtjX5/w9zvvlaThRJxt
2PfzzL5PRD3xS77xLTH9Ex6qpvr1SH9m1I/PuLdekaK0+xMaQz+STj9JxOje
W4c5mj8y7P2CCvl1YRFL46CaGi0jk5gEjktuuzgqPjDqQRK4b2lC/8eH/+9v
TqxoSCLqUfCtVd7dy7/iu7We4c8dMQx/JIP9wjvTx6Qo8B9f0/nw/Dc0iml7
sVIiGfv/DjSlV2W9jQBnlUi/25IfiPFuKLrYEM7wzw+Es0ifbbsdjuTRQMn+
yR84lpCjp8YdxuDzP4l6pqQntsn770+s3VdUNhkYgsGs8TSrj6no8iIPG9mE
MPafilkedZ6vl0Jgo7jMvmosFQ2hGYrNLu9wkNNBbOPTdOSJyGY45gcRcf9l
oeUS1PkW1ycOdzWfykC01GaBpi8B6NdTCeHaRoJ6rPO1gZ/+DP+S0Ienxt7B
fliUuHjVHaFMrOMV/nLAwxeH2MNE/EMyUSkTfOOQsw/D31kIdjJptNzvg8pQ
f1vLy1m4u6yrT+2xNwQjC92uNmXh0Cv9YsWD3oz9ZMNqL2swH5c30pgye7cI
ZeNTXMkBCrxwoOSBVGlyNnqMxLl9Nnkx7M2Gk89WwxEWL+QL1+MGJRufZ1VN
C+U9McRef5r7Df0ctR87QdnhyfB3Dlbl6pyW2+yJx83vVomE5YCsn7uC74oH
tjynaerr5yLMqeEM/+WFep8LFtESu6OXPLDqitB2nZu5hN4UsHvMy9Q6F85x
z+96L13Qm3Jh8YL9ntMPd9C2rC/v2Z4HHp39H2OT3Bn+yINXf5D/bII7sj6Z
u3TI58EiZebbqLQ7LjA/0KoeycO3lzt+dm9zZ/gjH5yyyj9OirjDN+ezVxl7
Pq5wB2w6VOCGksFuLErNh/u5lPdTJDfG++lrdoGTnCluiEwp9Tjcko+nQcNe
+hZu+MR8YoXB8wJk8Pm5mJi5MfxRgCLtg/cvq9Pvy/jnchwvRH6v1or2Q244
mt65VNCyENGnIszLd7ox8rEIRU40vTBpNxjzl7wK6ipC75zbr7d73LA2Oua0
xrpibN7gzKyvtbCfYgikHrRhs3JDdUhZtP3zEsQ8WGot5eiGwcw6yv74Enx9
YqFaRnVj+LsUvBMPWRrE3LFYMEfPR7QMBTcO7uXd4w6fGS6RkygDrT2fLJ/q
zugTy8DjKc8RI+UB2ZXqGs365Zi7IxQ3T8f5e8k1i7oMyqFW/1Vped9CfMoR
O+T9rsXKE90n+lOMtldgLdfhk+xBnsg5YPAhVKECGNhgUX7Wi+GfCiieXjr6
ZY03rI4+UtIZrAD/i1XDv29745T4bwUHrkoE3DH3O6Tmw9h/JdxTpA9LjPrg
26eRuOjESrwS2Nqh5OeLiIehtJc9lcjPG48Uf+DHyIcqaIgqaqzk84fbmlOx
Dx5UYfWA6+IhiQCEdEYpp+VUIb9qb7vsYAAjH6ox3ppWweEQiI4VzHzJ0tVg
u7fzRseWIEQGFYYphFUjvOtxy/LMIIa91bjEE1Dts/cdchVEbYwHq8HF9PqJ
pOp7MJW3qgjY18A12cPFxew9w94aBGm4PL/t+x7sSmLXPONqwLnN74T53lAk
cOaIOuvX4u+H3ItHZEMZ9tZC5sXduyVyodh48sVtgZu1BF5V7FC/NWJcC2mD
vTe/SIYx9lOLP4JPtFYxhYM8dFFtXqgO+hHa7Kp7wxn+qIN54vEv5y3CUfZy
BXPxsToE3n9Z7tAfgTlucymJujro3bi+8f2tBXythxz3xrrN7FHQD3ibrbu3
HkcFav5sXBYNwfhaMUeXejyMfhmTXB1N6J0+PqYGyv0xmM2mhhptIuOMiBrf
VeFYRn6TIW1SfXmfWiw8bQOZ5kEm8D/Ezm9puxcZE5dkI1StPhD6ZpJZ1wvy
jzg0KGiseTJEht5z1/5ClXiEFt41T1zdAKs3lZIO9Lr2n78aUNX2YbTkXAJq
zHkLq97TeWLddksvr08gnzy3i4mjES+U3q22oH4i9EnPTx2lW3k/Y1gmsYem
2Yi5lJNJvFmf4ffv/Y1EPaTd4BqYq2pEenTsHubgRLC0zDk8m2zE8po1wsaJ
iYQeqfFVM6OiIhFKBu9dx1Y04RKtkeumUhJ2Xaj1snnfBEUbvo6ItCRCf2RL
7zCPdPqK44WuE+FrmjFsU5XKw5qM41bx3IHKzZhdbiXnzv2N0BN9xnx8R4e+
oVvKaf59ZzNO8Z9TvdjyHea0ujecO1ow8SRvOM/vB6EXMk92scctSkEHM/fw
wRctCGJ14/vB9JPx/haCb2idTBbw6mlBj0/qIiXFVBQm3nfaKNyKyI8vtG+6
pBL64c6GqahyiTS0reQz23KuFb0Rl8a1In4h3iHccuBbKxI+Om9Z3JlO6IML
dfDlBZuk7MUU3GjdvHNHSAYaDmfV826hgPt5AFklnoR6wbr5zDMUrHR1Nc0Z
IhH64GjACqsw9kyYXsv5/PkOheBf9jd27nn1iIIAm+TVw2uyGP6hYP+1vaZm
vlkISPks5JJAwbuppiUyp7IJPXCB720I+DAhVEvB2TMafHoqOWg5UdB8YJAC
RzPJksa0HMb+KQSf7I51HVHfQsX28HnKJYE81FTz85nsoKL706+Vo8fzCH1w
hccDPinWAuTxKyxedIMK0cx2P2fBAoY9VKxcVa4hLVwA/aL4+c/09ab9y2ZF
lIoIvXCE9FFw8ekiLNfukfEJpBJ8mRytQTMLouLWVuOODVXFiBDN2t/6nQrd
52H6kTklONWedM+2iErwcSbq48qDA1QMhPb8IcmX49lm50ftY1R8W+nF8+ld
OdFPL/D7djlSsiYHDb/FKzz9kyrANa/74y8fjegPLHR+XtXYQoN7zMZ8ecEq
Bp7QIDMez4MzVegZ3To+KkOD/pywopRnFX4NP2fLlKcR/YpF7MehfSo0JGTJ
3YjfWoPXsSujD2nQQDnCxzZnVgsOo2xqhC6N6J98qSwbL5ym4dzBK4fmxOrg
RBL7WHWGhuE/v7ad7KhH7NuHXrbnaUQ/t27ZfMlf+lp8LRNbwWUyhGbxjvUC
DQ51qiyW9H7y+GWy6jP68xb6TWmuy925ejTUznA6s5c24uUOtkDnUzRo1NtR
S1e24qBGc8lFRRqhHyrwLDcWpdunozYunviRAj0D+/BD4jRYKXkx8+tTUane
EOCzlkbolXLrr+3mWUzD2KGa5rvnaYS/7/aYmXWItyHqg3aTUhcVe5b5F5V3
tSGETUSop5pK6Kea7UwD3BlUHNmtUShGacerDwE8jUlU/Ef3f8OOdEypkp4f
OdQjATvzfhP5I57I73TGtQOvTaWuK1tRCT33/VEr1jdmVGw1dFcRtO6EaVIH
k/YVKmrDPu2u2dOFtGD1pZ+VqYSeLLd5MHRahAoBzXvPXtV0o7Az410aGxW0
y3uaLE724l7Lxkhd+vlZ0K+X9YwpS1ZSULHY10PoSS8kH2o9MC2n4Lfo9j4v
917i/C3o4QcU4pLcoihw2GDrCe4+hBQsa5D0pBD6eoxKqQ2eUZBWVXLj0ad+
8LMdDbtwmgJO6+/Tyw4MoE+efaxN6X96vlnUssYkUQqs7+nKpG8ZxIhtCIzW
U/DZQfH9K/tBAo8W5gWPFlWWe060gk/mqULgyCAGrR713v/ZSswbXDKTHuuG
tMJYQJHX03cIu/Zzt/y91IrFi6NY2zKH6HYKRLEdacW2Fw8Fr1KGCHxcmHfI
iAcoOYy34IvY+SXWbsO4FmxtdKywhZiXFGUp5peEtKDVcsN30cMjBF63DNq4
118ZwVJBLf1rui3EPEbapNQ0RLMFbemveq2dR5BxVjGZ70ALTLeIpvRJjkJ+
UZnsl6ZmYv6jd7i+NyqqGdvzegyrY0eJ+qHaolVOZhpDYXm1nu/NZkgrLH/R
82AMJyzePHaQaCbmUadv1yorLWmGgfDJfS6VY5i4ShZyH2lCl3R3/PkN40T9
+m9+N44VLw/zsic1YfcohcUufBxtp0LQbd1EzMe2tW3q0b1Br3/GCYdcdSaw
8iZb+HuRJqhUpHdnP5nA9Vfsq81X/m/+VnNB4sNIbiOeyGzgEdKYRGxi+vqc
oEZinqdg/TBCzaIRa1Qs1cgCU0Q9H9hr1526aQr2x5J5QqX+Nx8cvvZUsUCy
ES6yh69piU2h4lhYzOSORijLfExsm5hCAe/WaVNSAzGP/CDcb3nWvwFXf97l
O1I+jTPLZNJy9BqwYl/hWPDQNITMrQ7pqP5vHhoaLPjekLUBJdtndYaiZjBg
mhct2Etm2DOD/nwbx7uZZPglvJFI1J0l+A33rXI7LbtZdGdv/qZgTybmsb5W
ohyaz8gIFDzPKvd5Fnos60WPmZCxDStFLl2YA/mXhXTP+v/NeyPFww7GDdfD
To9LI4HlL8HHVG2PSffI/YXBhvK41cn1iAokbYi7+RfKZ0+zrwytJ+bP1VyK
rHF36vEzVnGV/Jp5VP0Utuw+Xs/Ay3lYOZhtl9xWj/6go9aHy+YJfvh7RjZl
4+g8OPOSllwdqCPm4Vx96zvCev63tlT+vDxuqBZnVVe9znwwD/632kapEnVo
omw32ms4jxKFiEL1nXXEfiTXXCtoMqhDUfmASsKLvzghklxw3qkOU0LBIbTq
OSx7/7JnrKaOsL9a95hrDbUOh91MEtoi5pDrczPzQFcdmqtXF3SbzBH7VfmX
D3NQc1q13EGoHm8F17L6Z8+C69Jz8l2VesL/KzJLthZeqMfdTbzb/KVmceU2
l0SWYz1aecMv7fo9g5ABXkHlqHqISm1i9nWfIfy9kA+xARdY3zbV469sWjpt
6QxKkmru72ch48HgzGzLi2mQ1hjJ7lQiE/nmyGmtbX6RjH1vzldVbJ3GzxmN
18OGZJjUKUgezZoi8uW/8zkFdZqEvFIwGac2ntwloz4FlR2RLcdKyUS+nw08
1tBBodfBcAvurrpJyKx/odG/hJ7PL1dPXzKexBnnbonv0g3Eebt0VVN7lX4D
jBc9Iwm6TyAwML5xwrcBJ748rVQRmYCo3MB9mZIG4jzrHqZqlPY1wF3bLEbj
6zj8Q9lSKuYa/ocHVucE7kjT+fG0VK6J6jhxPmu2nA2eJo9h2621rZduNBJ4
ozHZ7/TXrBFV3Snq/MZjYBXKmzMNaMTRRxmd1X/p+BVxkEuiqBHnZrYsP+45
SvDtBbxrGP+91JqpCbsk919t2zwKnsMDugekm3C3JNdVL2kE+Sr28n23mwg8
ZbE9NlXp1IRCyVPpdUdHoB3TvGKnfxNq1e1XeLcOE/i2gNctSV4fS0qbwEvW
NX5pPIxN11f5p803EXjfle5u/p27GXUCHs+mZ4fAHGYgaCLbjJX3BjaGuw/B
Ukb7qrV+M1Ff1l/OaT3q14zGwnvsnUmDKOkKOrKqsBlKz3uFTY4N4v2Tbpni
2Waivo2x3P6Tzd8Cu+/7crfGD0B80cXwW9tbGPHohzbTu+yICy3Yfpmpl/ah
n6gnHUmvPBL7+sCiP1Nc4NJC1FcW370sxf4tePeIY7HesT6IX8naFfu5BTo9
2vYeon8QkuYwVtzZQtT3/llN7hbOVuQF5nA9i+wh6t3umC8ZUhd6ECbe/sLx
IJ03HW6+f160B7K9uwpcjrUSfCJi/EGZuVkrLlyUrtls04WMKFbab5dWvFnr
wdm7uxM3NzPFcGa2Enzlxhvni5rFrQj8+EN0j38H5KdtbcMrWgn+oxA1ZCjW
3wqxOxZKWb3tRH1/P9h9SPBtO+6oPpm7x0wh+FS1oOEU7xIKOFIumRQ6tONo
xDbRH/R1QfrsQ1lTGjYqbXm7jJNC8Ddm/hm2PSsp6B+439nBT0PlZOGMBX39
H1+mouJZn/zpFRQw340ziuGgEO9vfOBearqIgo6dAZvm/rYS/LH6r7p0IX39
J+48jsy04nvCFO00fV26s8sg+XQTggauZvJ9bCX46abvUlmJrq1Q9w4XSjlJ
Jvw9tFlpWyq9j16iaebcvqMVNU5mk+xV9ahzejMYu7aV4M9nvWvqBYNbsE6L
NrbXuhZH/m4WiKf3fzoeZKMv/LVEfizwc0HZwO4jtGZsG+TdX76jGoMfgnqy
Upth8uCm4cOWKoI/LPQDfxrdigKoTdiWlHkrRqoSelGOWpdqmtAovuRVoXAl
cX5SmEt2WzZVwHY05U5OZBNMs6QCqBoV+CscGqZ+pgmzwq8EFDLKifP82OxC
gtrTchzdL//WpaaR6GeamocDj9s1YujLraB6sTICT5rYhx2XPyxFhNjEt046
HvnuKuQYmi3B96BZZqeMBrCfvTHuuLOE0Aei+Xn4tWKK4fNQrX+bZAMsK+2M
ukyKoHhsjruMjq85Z66yPjYpIvDWSW+E6xB9HRUUfdvWn0z0Y47i4df30dem
m/seKcYUEvqGwhXespijhTi/KdNiDRMZZkc5plv7C4j6YJFZ/tRXvQCKp058
5TCux5e3Vh+85ArgGe4z8/taPTHvUPEVOeumV4940wqh7YH5RP16Zxdqbb8v
H78yH/lcy6xD152Y6zUheVgbuf9X76k6REunzBaY5BF6T+iIi7jsiTy4Oaac
8RGsw7c3/rH27bmEXrTQ34YaHnbIz6kFa8qe5See5OLA9rR3vx7XIoOF6/rw
9VxCjyp+I220XiUXF9lTg49o1ILlHo/2bEIOdvlfiGAqrcHdyxNbH5vnEHrX
CvnLxx235uDqqscPT2jWoKDkGTl5Ihv5Ys67HwjXwK7BdQdXeDahpy305/n3
MzjEUqpxdSqILU8rG2Ik52yZ+9V4umV1hIYsfb3RUsZcrxoTHlf0WfuzCP3O
59HnptKkLJBFvIrPZ1ThRN4SL5d7WTjKmmTw26AK0xd1qRdUswh9cB2/xDUH
8SzQlgfvG1hRhWXi0WEC+ZnIe3+v4N2zSkTIZurw/8gk9McF/aHYlWdbZ3wF
ZBR4ZJUPZEJGcTzBJrAC0c8Xt+ruzyT0zeLem46iipmIkeR+peNbgRO7BV7l
tJBQ0dagYNhajj+uwhaSdSRCPxUcTKOSSuj3a9cL7/1WDinPzrzTr0kIjzMM
+7SxHNJhk9RAexKhz9JKrabjHpHoOPJURC+5DKF88Y/cNUmoYm5+9uBXKdRK
9qzMOEwi9F8Po3otERkS/NOLtESXlcLNsObpRQES1tuK0b7vLcGUvOitFWtI
hL5sN/pw/9cVJHie0g5NvFiMgdb5VZzzGXhnGsnzM7IIY7qRAodmMgj9ev+s
5h+FiQxYHNsg359aiI9CfOGWoxmwK3VbVr2qELtmJBpXj2UQ+njjjMIv8/EM
kLfKsZ1SKsDx+HOd1vS/N3Panm20uQDfOO3Ud9Cfv6C/77Vk0ZKjvz/PuG3d
0wf5GL6JrVlMJOzcpdfZfDYfyp+txWWWkwh9/2ljYcplThKuGwRbXaKfE9me
9bopK0m4IlfLrOWRhxYTQyULPhIxPwj4OJtuI0KCmviiwcriXIRsHN1uR19X
mJ4Sz6OvJwKsvuhKk4j5hdNrfrmogySs1b+3sZo1F0zCEmfCDElg5/ylEL8+
B0++sO42eUoi5in5S2KjvjmS0Jr00fyBUzZqpP58+lVDgvap+Eaf81koi7hZ
9YpCIuY7iYoDk1k9JNT3v5iT4M4i8q9zx9aR7kWZmNzrsNTCOJOYH/GssU/u
fJAJ4+ff+UKdSXh6X8eyflkWuG6tuqx/OAO7blZ8CRHLInQ512vhw6GXshCk
O7KJtD8d+3ZuvX8wJwvj8l3alNo0HNjSVvxmQzYx/+p94nfIKSob4boOqjyH
f+JPRYHsse/ZiHyRvsWP9yc8zJlnY3VziPlb55GeuY7EHLDMbeZlKfwOng2n
Djjw5BLzuwX82ST99i6bYzKmMuasbbtysWa5H9n1bjJMxg/8+dyXS8wDwxcP
ylBnciH697RognYybu4e+FmmlQ/JOlfmbbJJMIy49SeSrYCYRy7g6bK7Ny4s
4fkCjhM7z93qLMDQnY302pMIc/srx6wuFBLzzQV85wzamNHz7BM0K7nIHl+L
8Papyy5N6U+QNrrNs6m7iJif/vd9RAniV7g1n2uOQ5+C1iGR1BKs+1NFkq6O
g5hf1hc1er3aeUm4wi8vFnVpZizs02XE/Lbd0T1p21wZcFbfJ8w7hqh3yq9M
8056xKCqtPTU9NpyrBtMXal0NgYaB71OlvqXI0yz0oZzTTSh3y0Na73SRY3E
qk69+2cUK3C5zyVyIjoSHZLH1xmfryDmywv1++x4/Pm7YeFwNKF+S/CpxLHF
R26fZA9nxKMSd238cip9wsDi9SA4b00VMc/uHncRHdaswpiGSDAaQonvC9JD
1h/YHRuKWaunn2fqqhBR9iE6gjUUtTM7E3+sqMavc8fPmqSEEHxD30RmvzN7
CMq91nJeOFNDzNcvsW3b+DCwBvFVaZrOBsGYXJ4Z+H2oBiNGJN8Lye8IfpMb
5kCNzniLlDuqdjqH6sAnlsWuUB2I5aalEudy6+jnNuGRcVMAAyfpfSjrjQef
HwegHabRTQ/qie8HLgQXlnTM1SMiwcSGneRH6Imh/RPPdrn4YW4Rs3wkvQ/j
EBsYEefyg7X/+p7rVDL0xfJ7vXV9Gf5swAqFs7z3aD6wfLXqGl9hA84cHB86
t9QHYdKjcm/HG3CrnZO0s9Sb4HdTJS8W/9H2xoU9KvuOGzVhgiNWs365F3T7
j7isiWnCPWY7rtZET8RRPgu84Gomvl9f+B7nydLIldt8PHBpcVMYD53Hxz6Q
kQxJd0d4/RavR3SeWHb4cuYeFXeCf+4q6Hxc6eqGEZnbt/+o0Xnwoj0yv1jc
AH/VQ2ODFHDeGHiWJvCa4Lc7jtzUNuhyhb1xdZu5OhUWM5KpGT0u6Mo6Ndl0
mAbew79blESdCb580v6xxMhGZ4x3t31QfUgjvj9RWWM0xX+uDY5Nh5Y50V4i
MEj1i7T5b5CljqytVXfAIqGLkbOZ7YhivvXg26vnBF9Pk49qaih+jqihAo0b
N9uhdfS7oPnyFzgibNo3bN+G7LWa8q+iXhLfj1aHSLN75b7EUfWsjuOF3Ti2
+4r3+UWWuMv8S/1OVDdeFyxdv8XQkuhHevUUV4R7W6HtUwVJJqELKaOPhjfG
WMPssmVUh2EXxNhNXi2BDaP/6sS5s+smm9JssNLDMnU6uBO/82bV06RtsWX0
yFpbuU4ERpk/Z2uwJfoXi1U2i+o17Ih+hca/QWHHjD3epE+unJr+jRZWxYDS
MHsMTxkujXDswCxXXM2lr3aMfrIHPSr3376mWuCAjO1qzZoe5Gpdv80fZ45G
vqNi3A09WCL6/I7yO3P8H1r7p4c=
    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Thickness[Large], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21}], 
        LineBox[{22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
         37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 
         54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 
         71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 
         88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 
         104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
          118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
         131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
          145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
         158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171,
          172, 173}], 
        LineBox[{174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
         186, 187, 188, 189, 190}]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "0.6`"}]],
      Annotation[#, 
       5. (0.2 + $CellContext`\[Sigma]) (-$CellContext`a (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 0.6, 
       "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
        LineBox[CompressedData["
1:eJwl03l8DwQYBvDfbl0qikpilUJRupwVSpcUC6VQje5jylFIhA5COQo5kyJ0
o5NhZo4dGLMLc+1wbGOzDdv49vHH93n/fz7PGxkdE/V2UCAQeFTEumtYyzri
WE88G0hgI5vYzBYSSSKZFLayje2ksoOdpLGLdDLIJItsdrOHveSwj/0c4CCH
yCWPfAo4zBGOcoxCiijmOCcooZSTlFFOBac4zRkqqaKaswT0EEQwIYQSRjgR
1OACLuQiLuYSanIpl3E5tajNFVxJHepyFVdzDfW4lvpcRwMaEsn13MCNNOIm
bqYxTWjKLdxKM5pzG7fTgju4k7u4m3toSSta04a2tONe7uN+2tOBjjzAg3Ti
IR7mkaDzW3mMzjxOF57gSbrSjSieojs96MnTPEMvnuU5etOHvjzPC7xINP3o
z0u8zCu8ymu8zhu8yVv8P+IYBvAO7zKQQQxmCO/xPkMZxnA+YAQfMpJRfMRo
xjCWj/mET/mMcYzncyYwkUl8wZdMZgpTmcZXfM10ZjCTb5jFbOYwl3nM51sW
8B0L+Z4fWMRifmQJS1nGT/zML/zKb/zOHyxnBSv5k7/4m3/4l/9YxWpiWcNa
1hHHeuLZQAIb2cRmtpBIEsmksJVtbCeVHewkjV2kk0EmWWSzmz3sJYd97OcA
BzlELnnkU8BhjnCUYxRSRDHHOUEJpZykjHIqOMVpzlBJFdWcJRDs/wkmhFDC
CCeCc4XAu0k=
         "]]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "1"}]],
      Annotation[#, 
       5. (0.2 + $CellContext`\[Sigma]) (-$CellContext`a (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 1, 
       "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Thickness[Large], Dashing[{0, Small}], 
        LineBox[CompressedData["
1:eJwN02OjFgYAQOG3blxubRk3LSzbtpaxtMx7a9m2bWPZWrXFZdtu2XbPh+f8
gxPcKLRKSJhAIBBGIoUNBCLzA1GISjSiE4OYxCI2PxKHn/iZuMQjPglISCIS
k4SkJCOY5KQgJalIzS+kIS3pSM+vZCAjmchMFrKSjezkICe5yE0e8pKP/BSg
IIUoTBGKUozilKAkpShNGcpSjvJUoCKV+I3KVKEq1ahODWpSi9rU4XfqUo/6
NKAhf9CIxjShKc1oTgta0orWtKEtIYTSjvb8SQc60onOdKEr3ehOD3rSi970
oS/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclMYSrTmM4MZjKL2cxh
LvOYzwIWsojF/MUSlrKM5axgJatYzRrWso71bGAjm9jMFv5mK9vYzj/8yw52
sovd7GEv/7GP/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN69zg
Jre4zR3u8j/3uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7yic984SvfCAT5
nLAEEY7wRCAikfgOL4qDSQ==
         "]], LineBox[{777, 778, 779, 780, 781, 782}], 
        LineBox[{783, 784, 785, 786, 787, 788, 789, 790, 791}], 
        LineBox[{792, 793, 794}], LineBox[{795, 796, 797}]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "1.5`"}]],
      Annotation[#, 
       5. (0.2 + $CellContext`\[Sigma]) (-$CellContext`a (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 1.5, 
       "Tooltip"]& ]}], {{InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[1.]], {0.8534244953659372, 0.6038583173548404}, {
      Left, Baseline},
      Alignment->{Left, Top}], 
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
      EdgeForm[None], 
      ArrowBox[{{0.8307171475891989, 0.6113991094744375}, {0.4450349881598132,
        0.579258929521989}}]}}, {
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
      None], ArrowBox[{{1.574296506492868, 0.5729844601672772}, {
       1.496114405266991, 0.4531338162253543}}]}, InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=0.6",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[1.]], {1.4427488349127944, 0.5929850870352656}, {
      Left, Baseline},
      Alignment->{Left, Top}]}, {InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1.5",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[
        1.]], {0.3429019087222132, 0.26270466900666034}, {Left, Baseline},
      Alignment->{Left, Top}], 
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
      None], ArrowBox[{{0.5995735841669758, 0.30494604951801274`}, {
       0.2241193584622923, 0.3787535927073842}}]}}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{26., 5.938776}, {24., 3.438776}},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 18, 
    GrayLevel[0]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-0.04166666666666667, 
   2.0416666666666665`}, {-0.014583333333333334`, 0.7145833333333332}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.9122765408917437`*^9, 3.912276540907365*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxFWgc4lf/7VhoIhQZlpCQ0SGWl7kqIjIq0d1RCqTTIViHKnkn2iJSkEnHs
vdcxzzlkZu+V//n3Pd7fe7murk8v7/t5xud+7ud+XuFrd0/qL2ZiYhJgZmL6
/38XLn6e2/7zW0JREuVjfTvVHv/973tEs6v9VOp6haD87VH1Fu/gIaL2/z+I
eV7c5sAUhDGS6l1LigeK/11vsTNmY+Dv676Q2cebNX4tEI3JxvSfQKiMyO03
kw/AmLt88Sf/IPj/dyF5nloeXvQe89LvJl1e+zGeHwqHQxHl2vW+MG7yLBY+
HgGDf5cPUtQlLfmVI9GtWe28Y84bpndlKge7oyH1m2xUN+bFeN8HaHzIKfn1
1xOTyk6CngJx2NG+/ZrmR08sXaym2H8vHrv/XZ6M9yUijn+bZKKwOz7ePM5+
7WkS7E6tTlVOeYN/j2tMhn8L8xNOJ1e8j9vqV7z5J2P/TjCcf6aeefknthVJ
GL6478TwG9PBRb4xbh/i6xHiUBoVnTbP8E89FKweczvazuPbJw7NV131MLvS
VfhVaR6u3MLrApeTGe/7i0HRft4fcmTYPpE/vD3qL5Kj7cVNj5Ph9m+/f1Fu
9EJpjw0ZVyLfP1Ff85exHzIspKatWMvmoBab/fnBTzLu/Nv+HB7mrC+/l0/G
QUG/0VTbObAoXno00UYGZe5Hpv7ELFjnglaJbW3Apn/hncU2d5MYifMN2J9i
esRDeBZb7lReNvBuwCPeD9pBX2YgcqR5XK+iAeR/G57BhVdFGkJjDeC4dlee
pjED2qayZMWljfAkn5+8NTUN6X/+bkTSP/umsalux5WHSo3gb/xQt+/pNCb0
06ZfPGpk2DeNzPwRar57I3bPHtCYqJtC17uH+REVjXjgIM+bHTUFNh2BU609
jVjW9ljvm90U5v9djVD9F9ApnHjO+ZaypwlXl9Gui9ROQkSRNX3+UhPDvklk
LcmyrH3ZBIetY3ut108y4tOEz3dy1MOXT+KKFDXQuq4Jf/89dwJSrjpdp5ua
ULWm1OvWnwmwWLReU+hqwrg6lfme3ATOloXIMWs34+s/+8YRJN729YtjM7aF
7dGr+TXOiE8zZgZfFv64M46dgq82LClsxpZzauTqvjH4aPm/vcvXAqN/8RoD
v6hrea58C5jiu1PV34/h7RlzljKVFtzb+2p/oMkY4zy04Og/e8fQIrFtTYVX
CyoNrgqK1YzCVfzUxJLsFmz+Z+8ocq+bdeYOtsA4OKHxnfgoIx6t+LLos08T
+yikyiYq9yi3QuVt2v11jSMo/SW+vdWgFQ3/4juC8+rcEV/iWlGzgTeb98gI
JM79VE7NaQVtZMLWvX+Y4f9WRv4O443WqUqTZRSwD3VsZLUcRmp0iJSOCAXu
/+I7jJzF2ma/ZSigJsbvPZg6xLCHghCNm7f8vg8h/OtHWtBNCkSk7gWZfR4C
74cbH3YYUhj2DqEjqbIo0J+CVexf5l4PDyLi53Wrwhj67/+zdxDH5h+7vSym
YMUQV7aF+yAjvhS0H9nHRds5iPdrlfCuj8KI7wDOOVCOX5inoOuH0MEDTf1I
OXZepkeail11ctybG/vhYLWDh283FWOuYwHuDf0M/1EZ8epD/+/S+T4DKriX
0oL26/ZhR1ej25rHVOiLySynvf3DiD+VEY8/uLVRjt0jkIqLh5xNSRW9oPps
1gpKpTL83QujHwnGOuVU0BzjzLVu9jBwhYY5k3Pel3R6QI5s1fRipsHeNlgo
fksPlLc7lt5mpzH8041bst0SxQo0aH4NlLpc3gVOvnKB/qP0+zEHb1Nluhj+
pjHi1ontKY6TZfdokO+ISUnX7kSekmMS/xsaI54d0NkzL2cUSYNrjKxU2PIO
hj9pCFJyFNxT+RtKnxPYLtfSwEbp/6Z85je8d8n7d/bRGPFoxx3xa/pnuNrA
M3TCJ0i7HZ6qMq+bN7RB7catz0VVbQw8bmPgdxvs+24ay6q04bfGqN35IhqO
29YY515pY+A1DV5XnGoOmbdB0f1cUK87FQH//NsGPvnLHLuPUnE9RbWFK7IN
Fmx1tE1fKBg4VXpdk9TG8CMFyVWbNP1b6L9/wvpowONW/DVXMxDuasOzQ+aj
zFdbGL/XDpN/G2rGsl0+Rww52xGq+VGGW6gZ5bz7mN3Wt2M3WfrJkbNNkOFT
zJcTb2fsvxEDxtPrTuxrh3PxecWItAZIx4o7+Ki2o1L/CWXRLjLyXjooy99o
Z8SLjPyu/cqs+u3Ilrp99KsgGQOlT35cpq+X+adM+XGQGfFqZ8SjFuMbslfy
OrfjJN/Uhw8/a3D3Bu8B04B2XFmau3xTfA1Wpocd0AxsZ/i/GsLWj3mdY9rx
LMCQbdlAFRQ55aMVPrWj7fMqky7fSiirDgotSW9n+LcSPMakc/6kdvjP7VXe
sqoS19jtT1ZltuPf40QqYCV5u427sB16wcvj+jzLUfIvH9oht++6sDZnOSQm
2MiaZe0MP5bD8OG2xV/pa9mreYHPG8twbDS7a46+lv7r57/Cvwgrru839C1f
8F8RrGYlz0fR1773ZR6xHSnCFcXGo/fp606uif0WRwuJ9+0uOiPEcTwPS/dF
P/DLXPBPLpgNjv6up9tj9O30/dtjOYh6usc47ns7jMUkaqs6svCYP0YpILod
94ft9i1+k8nInwX7M9HXo67h6NOOyYO/Bm4PZaBnRK7/qcOCPRmIOaCjG2jW
jrUevZ9TT/wi4qNuYN3j9iMVL6oGo6mnF+z5iT2iOkNH1en50Bj8ssjsByPf
2+Ftla5xZdd3PKpku75fpJ3gGwnkHAEl7nacHy+1kQj+SuSjQl6azEOpJCT8
DhD42NOGMYs395beSWT4o43gM8ZLTx90LWxDZ4yEGWvoJ+T8bL3GH0c/V0w3
r5Y9SyDOywJfenyBZeWKu21wFM46f68nFo/7C52Vb9Pv38/jIAnE4nhWx1KO
y21gzs7x3vAhkjivC3yNfL5SbM00DVI53ou1V76H2g+RViUyDc7xq6Oa8t8R
eLEyOr2/LC4QiollrW1faKh9R3FUK/JBjEjn3ykXGqb7itnHRz0IfNqg+6bH
w9MFaUHf/G4coOHx7r7yDYK2BB4u8NfpqbUJa0OoOK4x1Ky9rggPClaIvlE3
hwY5VeeEfgFublBalWnyDIqLSbkvdhVg/oRJ0chiS0yHVlzm7c7HKw6571bb
LCHpxxy0TScPK3afMP100JrIp8DGgR8XtWxgPTy+8YB8Lu7r7vJeYmsD5T3k
ka9aOZhkuW+iu9kW3b37VdKcsiHdXtQ6q2oHFZ2JPBbHLBzMu15VGmyHGeGS
F1fPZGGHnYW8SqYdkW+Zti3li/QdMJT70Hv/HRKUXbc+Gf7lgDe0GeempAyY
H1B/kxv+HMzr4n8YTaXjXsLE2ob8F/glkblvi+1P9ArHn9l13YnINxXWY0Fr
jJzA5nDll8j/1/FWXhW1I+aQu+zIId/bgrfCp67dmDGH/Tj/s4e0FnAXVbf4
CFtAX3ajTWAd/f7fjDZ2QQvIVtwL1qtqhvfa5Vmc0c8IPHy4vO582GZLKN9J
91ru3QyxTHb2w3yW+JHj+yw8vQmPbuYliN6ygkdhtMQTlyaEPT+SnqtiDaTM
ndh3ks671htU3dpjjeeWuXHUJDqPMzKvGFhnQ+Cn291Jh73JNjimtsP8HG8j
RGU0PXZ/tGHEowH1S2SkXSg2UNsbtok5tgF3+zd/S2W1RfJTv7lozQb4vfGo
nGiyhXPLL3shMhnb/csa6upskZdGOsscSMalLK30O+x2BP7mmdd7rdtgjwMk
gyUDXvXIKOD9JLHOHvPqX2pH3tSjvc9c1YV+n2NqZfH0bB3Oxrw8eNzYAVc3
lk7ZOdXBSvZdyktDBxxyaz5noFYHIUutZX8KHAi8FrvOQaIWP0duj9zPIYda
JD6xLJwqf46pnKv9OtM1SNIT8uiLeIHC7IpJme81EPE1Vzqn8hKhypV5snY1
0L7vf5pN4yUqnjxmnY2qhsnx7QUekY4Evuvl5breaHTEeJ2viI1tNQrvm+4O
bHaEoYBN/NqV1US/8p9/q6Aj+epl74AzqjXen3ziXglV8XLm2CwXAv8plk+u
b7F2xYklOlx7aioQUzaxXyjuNYH/uqHqB12E3MATou3zK6Ece384r50MdyPw
3uDDQ82RXR4ILjqkffZbCTYpfI/13OOJ8IsGq/O/liAoV3WHjIwngff370gc
jTX2hlII27OMY4UYFHd4nWTsg2s6BwyzDhfixdpeRaUnPox4FWDwRVzB3zpf
qK+nLJL2zyP6ydvCvIsl1+ch003J6LhaAHF+D4q0FDZ+CECOSLL7Dr5c3Jtf
dMvmRyD0Lh6RDPHJwdC7YQG3+28Z/syGw8TKK98k38E6f4B6YUs2pP7KcS8p
ewcj5rqLy55mEf3xwvmNPy8k/FUmBNe3Mivlm5FwxnCJ+7EVoWjKZPaXeZLB
wMswon4obHN01akKQ88dYdvxDb/gVDQ34sETgcUXma54nU5l4F8kcZ7/uG9X
T9geheU5cvICzT/Q6/SQc6dtNAy/laXFJH5n2B9D1A/trY/2n3z9AUjmcWbZ
mgyP+YPTz7XiEFB9KZ3DLAnTsnW5TeYf0R7lrPta+QtjX5/w9zvvlaThRJxt
2PfzzL5PRD3xS77xLTH9Ex6qpvr1SH9m1I/PuLdekaK0+xMaQz+STj9JxOje
W4c5mj8y7P2CCvl1YRFL46CaGi0jk5gEjktuuzgqPjDqQRK4b2lC/8eH/+9v
TqxoSCLqUfCtVd7dy7/iu7We4c8dMQx/JIP9wjvTx6Qo8B9f0/nw/Dc0iml7
sVIiGfv/DjSlV2W9jQBnlUi/25IfiPFuKLrYEM7wzw+Es0ifbbsdjuTRQMn+
yR84lpCjp8YdxuDzP4l6pqQntsn770+s3VdUNhkYgsGs8TSrj6no8iIPG9mE
MPafilkedZ6vl0Jgo7jMvmosFQ2hGYrNLu9wkNNBbOPTdOSJyGY45gcRcf9l
oeUS1PkW1ycOdzWfykC01GaBpi8B6NdTCeHaRoJ6rPO1gZ/+DP+S0Ienxt7B
fliUuHjVHaFMrOMV/nLAwxeH2MNE/EMyUSkTfOOQsw/D31kIdjJptNzvg8pQ
f1vLy1m4u6yrT+2xNwQjC92uNmXh0Cv9YsWD3oz9ZMNqL2swH5c30pgye7cI
ZeNTXMkBCrxwoOSBVGlyNnqMxLl9Nnkx7M2Gk89WwxEWL+QL1+MGJRufZ1VN
C+U9McRef5r7Df0ctR87QdnhyfB3Dlbl6pyW2+yJx83vVomE5YCsn7uC74oH
tjynaerr5yLMqeEM/+WFep8LFtESu6OXPLDqitB2nZu5hN4UsHvMy9Q6F85x
z+96L13Qm3Jh8YL9ntMPd9C2rC/v2Z4HHp39H2OT3Bn+yINXf5D/bII7sj6Z
u3TI58EiZebbqLQ7LjA/0KoeycO3lzt+dm9zZ/gjH5yyyj9OirjDN+ezVxl7
Pq5wB2w6VOCGksFuLErNh/u5lPdTJDfG++lrdoGTnCluiEwp9Tjcko+nQcNe
+hZu+MR8YoXB8wJk8Pm5mJi5MfxRgCLtg/cvq9Pvy/jnchwvRH6v1or2Q244
mt65VNCyENGnIszLd7ox8rEIRU40vTBpNxjzl7wK6ipC75zbr7d73LA2Oua0
xrpibN7gzKyvtbCfYgikHrRhs3JDdUhZtP3zEsQ8WGot5eiGwcw6yv74Enx9
YqFaRnVj+LsUvBMPWRrE3LFYMEfPR7QMBTcO7uXd4w6fGS6RkygDrT2fLJ/q
zugTy8DjKc8RI+UB2ZXqGs365Zi7IxQ3T8f5e8k1i7oMyqFW/1Vped9CfMoR
O+T9rsXKE90n+lOMtldgLdfhk+xBnsg5YPAhVKECGNhgUX7Wi+GfCiieXjr6
ZY03rI4+UtIZrAD/i1XDv29745T4bwUHrkoE3DH3O6Tmw9h/JdxTpA9LjPrg
26eRuOjESrwS2Nqh5OeLiIehtJc9lcjPG48Uf+DHyIcqaIgqaqzk84fbmlOx
Dx5UYfWA6+IhiQCEdEYpp+VUIb9qb7vsYAAjH6ox3ppWweEQiI4VzHzJ0tVg
u7fzRseWIEQGFYYphFUjvOtxy/LMIIa91bjEE1Dts/cdchVEbYwHq8HF9PqJ
pOp7MJW3qgjY18A12cPFxew9w94aBGm4PL/t+x7sSmLXPONqwLnN74T53lAk
cOaIOuvX4u+H3ItHZEMZ9tZC5sXduyVyodh48sVtgZu1BF5V7FC/NWJcC2mD
vTe/SIYx9lOLP4JPtFYxhYM8dFFtXqgO+hHa7Kp7wxn+qIN54vEv5y3CUfZy
BXPxsToE3n9Z7tAfgTlucymJujro3bi+8f2tBXythxz3xrrN7FHQD3ibrbu3
HkcFav5sXBYNwfhaMUeXejyMfhmTXB1N6J0+PqYGyv0xmM2mhhptIuOMiBrf
VeFYRn6TIW1SfXmfWiw8bQOZ5kEm8D/Ezm9puxcZE5dkI1StPhD6ZpJZ1wvy
jzg0KGiseTJEht5z1/5ClXiEFt41T1zdAKs3lZIO9Lr2n78aUNX2YbTkXAJq
zHkLq97TeWLddksvr08gnzy3i4mjES+U3q22oH4i9EnPTx2lW3k/Y1gmsYem
2Yi5lJNJvFmf4ffv/Y1EPaTd4BqYq2pEenTsHubgRLC0zDk8m2zE8po1wsaJ
iYQeqfFVM6OiIhFKBu9dx1Y04RKtkeumUhJ2Xaj1snnfBEUbvo6ItCRCf2RL
7zCPdPqK44WuE+FrmjFsU5XKw5qM41bx3IHKzZhdbiXnzv2N0BN9xnx8R4e+
oVvKaf59ZzNO8Z9TvdjyHea0ujecO1ow8SRvOM/vB6EXMk92scctSkEHM/fw
wRctCGJ14/vB9JPx/haCb2idTBbw6mlBj0/qIiXFVBQm3nfaKNyKyI8vtG+6
pBL64c6GqahyiTS0reQz23KuFb0Rl8a1In4h3iHccuBbKxI+Om9Z3JlO6IML
dfDlBZuk7MUU3GjdvHNHSAYaDmfV826hgPt5AFklnoR6wbr5zDMUrHR1Nc0Z
IhH64GjACqsw9kyYXsv5/PkOheBf9jd27nn1iIIAm+TVw2uyGP6hYP+1vaZm
vlkISPks5JJAwbuppiUyp7IJPXCB720I+DAhVEvB2TMafHoqOWg5UdB8YJAC
RzPJksa0HMb+KQSf7I51HVHfQsX28HnKJYE81FTz85nsoKL706+Vo8fzCH1w
hccDPinWAuTxKyxedIMK0cx2P2fBAoY9VKxcVa4hLVwA/aL4+c/09ab9y2ZF
lIoIvXCE9FFw8ekiLNfukfEJpBJ8mRytQTMLouLWVuOODVXFiBDN2t/6nQrd
52H6kTklONWedM+2iErwcSbq48qDA1QMhPb8IcmX49lm50ftY1R8W+nF8+ld
OdFPL/D7djlSsiYHDb/FKzz9kyrANa/74y8fjegPLHR+XtXYQoN7zMZ8ecEq
Bp7QIDMez4MzVegZ3To+KkOD/pywopRnFX4NP2fLlKcR/YpF7MehfSo0JGTJ
3YjfWoPXsSujD2nQQDnCxzZnVgsOo2xqhC6N6J98qSwbL5ym4dzBK4fmxOrg
RBL7WHWGhuE/v7ad7KhH7NuHXrbnaUQ/t27ZfMlf+lp8LRNbwWUyhGbxjvUC
DQ51qiyW9H7y+GWy6jP68xb6TWmuy925ejTUznA6s5c24uUOtkDnUzRo1NtR
S1e24qBGc8lFRRqhHyrwLDcWpdunozYunviRAj0D+/BD4jRYKXkx8+tTUane
EOCzlkbolXLrr+3mWUzD2KGa5rvnaYS/7/aYmXWItyHqg3aTUhcVe5b5F5V3
tSGETUSop5pK6Kea7UwD3BlUHNmtUShGacerDwE8jUlU/Ef3f8OOdEypkp4f
OdQjATvzfhP5I57I73TGtQOvTaWuK1tRCT33/VEr1jdmVGw1dFcRtO6EaVIH
k/YVKmrDPu2u2dOFtGD1pZ+VqYSeLLd5MHRahAoBzXvPXtV0o7Az410aGxW0
y3uaLE724l7Lxkhd+vlZ0K+X9YwpS1ZSULHY10PoSS8kH2o9MC2n4Lfo9j4v
917i/C3o4QcU4pLcoihw2GDrCe4+hBQsa5D0pBD6eoxKqQ2eUZBWVXLj0ad+
8LMdDbtwmgJO6+/Tyw4MoE+efaxN6X96vlnUssYkUQqs7+nKpG8ZxIhtCIzW
U/DZQfH9K/tBAo8W5gWPFlWWe060gk/mqULgyCAGrR713v/ZSswbXDKTHuuG
tMJYQJHX03cIu/Zzt/y91IrFi6NY2zKH6HYKRLEdacW2Fw8Fr1KGCHxcmHfI
iAcoOYy34IvY+SXWbsO4FmxtdKywhZiXFGUp5peEtKDVcsN30cMjBF63DNq4
118ZwVJBLf1rui3EPEbapNQ0RLMFbemveq2dR5BxVjGZ70ALTLeIpvRJjkJ+
UZnsl6ZmYv6jd7i+NyqqGdvzegyrY0eJ+qHaolVOZhpDYXm1nu/NZkgrLH/R
82AMJyzePHaQaCbmUadv1yorLWmGgfDJfS6VY5i4ShZyH2lCl3R3/PkN40T9
+m9+N44VLw/zsic1YfcohcUufBxtp0LQbd1EzMe2tW3q0b1Br3/GCYdcdSaw
8iZb+HuRJqhUpHdnP5nA9Vfsq81X/m/+VnNB4sNIbiOeyGzgEdKYRGxi+vqc
oEZinqdg/TBCzaIRa1Qs1cgCU0Q9H9hr1526aQr2x5J5QqX+Nx8cvvZUsUCy
ES6yh69piU2h4lhYzOSORijLfExsm5hCAe/WaVNSAzGP/CDcb3nWvwFXf97l
O1I+jTPLZNJy9BqwYl/hWPDQNITMrQ7pqP5vHhoaLPjekLUBJdtndYaiZjBg
mhct2Etm2DOD/nwbx7uZZPglvJFI1J0l+A33rXI7LbtZdGdv/qZgTybmsb5W
ohyaz8gIFDzPKvd5Fnos60WPmZCxDStFLl2YA/mXhXTP+v/NeyPFww7GDdfD
To9LI4HlL8HHVG2PSffI/YXBhvK41cn1iAokbYi7+RfKZ0+zrwytJ+bP1VyK
rHF36vEzVnGV/Jp5VP0Utuw+Xs/Ay3lYOZhtl9xWj/6go9aHy+YJfvh7RjZl
4+g8OPOSllwdqCPm4Vx96zvCev63tlT+vDxuqBZnVVe9znwwD/632kapEnVo
omw32ms4jxKFiEL1nXXEfiTXXCtoMqhDUfmASsKLvzghklxw3qkOU0LBIbTq
OSx7/7JnrKaOsL9a95hrDbUOh91MEtoi5pDrczPzQFcdmqtXF3SbzBH7VfmX
D3NQc1q13EGoHm8F17L6Z8+C69Jz8l2VesL/KzJLthZeqMfdTbzb/KVmceU2
l0SWYz1aecMv7fo9g5ABXkHlqHqISm1i9nWfIfy9kA+xARdY3zbV469sWjpt
6QxKkmru72ch48HgzGzLi2mQ1hjJ7lQiE/nmyGmtbX6RjH1vzldVbJ3GzxmN
18OGZJjUKUgezZoi8uW/8zkFdZqEvFIwGac2ntwloz4FlR2RLcdKyUS+nw08
1tBBodfBcAvurrpJyKx/odG/hJ7PL1dPXzKexBnnbonv0g3Eebt0VVN7lX4D
jBc9Iwm6TyAwML5xwrcBJ748rVQRmYCo3MB9mZIG4jzrHqZqlPY1wF3bLEbj
6zj8Q9lSKuYa/ocHVucE7kjT+fG0VK6J6jhxPmu2nA2eJo9h2621rZduNBJ4
ozHZ7/TXrBFV3Snq/MZjYBXKmzMNaMTRRxmd1X/p+BVxkEuiqBHnZrYsP+45
SvDtBbxrGP+91JqpCbsk919t2zwKnsMDugekm3C3JNdVL2kE+Sr28n23mwg8
ZbE9NlXp1IRCyVPpdUdHoB3TvGKnfxNq1e1XeLcOE/i2gNctSV4fS0qbwEvW
NX5pPIxN11f5p803EXjfle5u/p27GXUCHs+mZ4fAHGYgaCLbjJX3BjaGuw/B
Ukb7qrV+M1Ff1l/OaT3q14zGwnvsnUmDKOkKOrKqsBlKz3uFTY4N4v2Tbpni
2Waivo2x3P6Tzd8Cu+/7crfGD0B80cXwW9tbGPHohzbTu+yICy3Yfpmpl/ah
n6gnHUmvPBL7+sCiP1Nc4NJC1FcW370sxf4tePeIY7HesT6IX8naFfu5BTo9
2vYeon8QkuYwVtzZQtT3/llN7hbOVuQF5nA9i+wh6t3umC8ZUhd6ECbe/sLx
IJ03HW6+f160B7K9uwpcjrUSfCJi/EGZuVkrLlyUrtls04WMKFbab5dWvFnr
wdm7uxM3NzPFcGa2Enzlxhvni5rFrQj8+EN0j38H5KdtbcMrWgn+oxA1ZCjW
3wqxOxZKWb3tRH1/P9h9SPBtO+6oPpm7x0wh+FS1oOEU7xIKOFIumRQ6tONo
xDbRH/R1QfrsQ1lTGjYqbXm7jJNC8Ddm/hm2PSsp6B+439nBT0PlZOGMBX39
H1+mouJZn/zpFRQw340ziuGgEO9vfOBearqIgo6dAZvm/rYS/LH6r7p0IX39
J+48jsy04nvCFO00fV26s8sg+XQTggauZvJ9bCX46abvUlmJrq1Q9w4XSjlJ
Jvw9tFlpWyq9j16iaebcvqMVNU5mk+xV9ahzejMYu7aV4M9nvWvqBYNbsE6L
NrbXuhZH/m4WiKf3fzoeZKMv/LVEfizwc0HZwO4jtGZsG+TdX76jGoMfgnqy
Upth8uCm4cOWKoI/LPQDfxrdigKoTdiWlHkrRqoSelGOWpdqmtAovuRVoXAl
cX5SmEt2WzZVwHY05U5OZBNMs6QCqBoV+CscGqZ+pgmzwq8EFDLKifP82OxC
gtrTchzdL//WpaaR6GeamocDj9s1YujLraB6sTICT5rYhx2XPyxFhNjEt046
HvnuKuQYmi3B96BZZqeMBrCfvTHuuLOE0Aei+Xn4tWKK4fNQrX+bZAMsK+2M
ukyKoHhsjruMjq85Z66yPjYpIvDWSW+E6xB9HRUUfdvWn0z0Y47i4df30dem
m/seKcYUEvqGwhXespijhTi/KdNiDRMZZkc5plv7C4j6YJFZ/tRXvQCKp058
5TCux5e3Vh+85ArgGe4z8/taPTHvUPEVOeumV4940wqh7YH5RP16Zxdqbb8v
H78yH/lcy6xD152Y6zUheVgbuf9X76k6REunzBaY5BF6T+iIi7jsiTy4Oaac
8RGsw7c3/rH27bmEXrTQ34YaHnbIz6kFa8qe5See5OLA9rR3vx7XIoOF6/rw
9VxCjyp+I220XiUXF9lTg49o1ILlHo/2bEIOdvlfiGAqrcHdyxNbH5vnEHrX
CvnLxx235uDqqscPT2jWoKDkGTl5Ihv5Ys67HwjXwK7BdQdXeDahpy305/n3
MzjEUqpxdSqILU8rG2Ik52yZ+9V4umV1hIYsfb3RUsZcrxoTHlf0WfuzCP3O
59HnptKkLJBFvIrPZ1ThRN4SL5d7WTjKmmTw26AK0xd1qRdUswh9cB2/xDUH
8SzQlgfvG1hRhWXi0WEC+ZnIe3+v4N2zSkTIZurw/8gk9McF/aHYlWdbZ3wF
ZBR4ZJUPZEJGcTzBJrAC0c8Xt+ruzyT0zeLem46iipmIkeR+peNbgRO7BV7l
tJBQ0dagYNhajj+uwhaSdSRCPxUcTKOSSuj3a9cL7/1WDinPzrzTr0kIjzMM
+7SxHNJhk9RAexKhz9JKrabjHpHoOPJURC+5DKF88Y/cNUmoYm5+9uBXKdRK
9qzMOEwi9F8Po3otERkS/NOLtESXlcLNsObpRQES1tuK0b7vLcGUvOitFWtI
hL5sN/pw/9cVJHie0g5NvFiMgdb5VZzzGXhnGsnzM7IIY7qRAodmMgj9ev+s
5h+FiQxYHNsg359aiI9CfOGWoxmwK3VbVr2qELtmJBpXj2UQ+njjjMIv8/EM
kLfKsZ1SKsDx+HOd1vS/N3Panm20uQDfOO3Ud9Cfv6C/77Vk0ZKjvz/PuG3d
0wf5GL6JrVlMJOzcpdfZfDYfyp+txWWWkwh9/2ljYcplThKuGwRbXaKfE9me
9bopK0m4IlfLrOWRhxYTQyULPhIxPwj4OJtuI0KCmviiwcriXIRsHN1uR19X
mJ4Sz6OvJwKsvuhKk4j5hdNrfrmogySs1b+3sZo1F0zCEmfCDElg5/ylEL8+
B0++sO42eUoi5in5S2KjvjmS0Jr00fyBUzZqpP58+lVDgvap+Eaf81koi7hZ
9YpCIuY7iYoDk1k9JNT3v5iT4M4i8q9zx9aR7kWZmNzrsNTCOJOYH/GssU/u
fJAJ4+ff+UKdSXh6X8eyflkWuG6tuqx/OAO7blZ8CRHLInQ512vhw6GXshCk
O7KJtD8d+3ZuvX8wJwvj8l3alNo0HNjSVvxmQzYx/+p94nfIKSob4boOqjyH
f+JPRYHsse/ZiHyRvsWP9yc8zJlnY3VziPlb55GeuY7EHLDMbeZlKfwOng2n
Djjw5BLzuwX82ST99i6bYzKmMuasbbtysWa5H9n1bjJMxg/8+dyXS8wDwxcP
ylBnciH697RognYybu4e+FmmlQ/JOlfmbbJJMIy49SeSrYCYRy7g6bK7Ny4s
4fkCjhM7z93qLMDQnY302pMIc/srx6wuFBLzzQV85wzamNHz7BM0K7nIHl+L
8Papyy5N6U+QNrrNs6m7iJif/vd9RAniV7g1n2uOQ5+C1iGR1BKs+1NFkq6O
g5hf1hc1er3aeUm4wi8vFnVpZizs02XE/Lbd0T1p21wZcFbfJ8w7hqh3yq9M
8056xKCqtPTU9NpyrBtMXal0NgYaB71OlvqXI0yz0oZzTTSh3y0Na73SRY3E
qk69+2cUK3C5zyVyIjoSHZLH1xmfryDmywv1++x4/Pm7YeFwNKF+S/CpxLHF
R26fZA9nxKMSd238cip9wsDi9SA4b00VMc/uHncRHdaswpiGSDAaQonvC9JD
1h/YHRuKWaunn2fqqhBR9iE6gjUUtTM7E3+sqMavc8fPmqSEEHxD30RmvzN7
CMq91nJeOFNDzNcvsW3b+DCwBvFVaZrOBsGYXJ4Z+H2oBiNGJN8Lye8IfpMb
5kCNzniLlDuqdjqH6sAnlsWuUB2I5aalEudy6+jnNuGRcVMAAyfpfSjrjQef
HwegHabRTQ/qie8HLgQXlnTM1SMiwcSGneRH6Imh/RPPdrn4YW4Rs3wkvQ/j
EBsYEefyg7X/+p7rVDL0xfJ7vXV9Gf5swAqFs7z3aD6wfLXqGl9hA84cHB86
t9QHYdKjcm/HG3CrnZO0s9Sb4HdTJS8W/9H2xoU9KvuOGzVhgiNWs365F3T7
j7isiWnCPWY7rtZET8RRPgu84Gomvl9f+B7nydLIldt8PHBpcVMYD53Hxz6Q
kQxJd0d4/RavR3SeWHb4cuYeFXeCf+4q6Hxc6eqGEZnbt/+o0Xnwoj0yv1jc
AH/VQ2ODFHDeGHiWJvCa4Lc7jtzUNuhyhb1xdZu5OhUWM5KpGT0u6Mo6Ndl0
mAbew79blESdCb580v6xxMhGZ4x3t31QfUgjvj9RWWM0xX+uDY5Nh5Y50V4i
MEj1i7T5b5CljqytVXfAIqGLkbOZ7YhivvXg26vnBF9Pk49qaih+jqihAo0b
N9uhdfS7oPnyFzgibNo3bN+G7LWa8q+iXhLfj1aHSLN75b7EUfWsjuOF3Ti2
+4r3+UWWuMv8S/1OVDdeFyxdv8XQkuhHevUUV4R7W6HtUwVJJqELKaOPhjfG
WMPssmVUh2EXxNhNXi2BDaP/6sS5s+smm9JssNLDMnU6uBO/82bV06RtsWX0
yFpbuU4ERpk/Z2uwJfoXi1U2i+o17Ih+hca/QWHHjD3epE+unJr+jRZWxYDS
MHsMTxkujXDswCxXXM2lr3aMfrIHPSr3376mWuCAjO1qzZoe5Gpdv80fZ45G
vqNi3A09WCL6/I7yO3P8H1r7p4c=
    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 1], Thickness[Large], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21}], 
        LineBox[{22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
         37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 
         54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 
         71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 
         88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 
         104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
          118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
         131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
          145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
         158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171,
          172, 173}], 
        LineBox[{174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
         186, 187, 188, 189, 190}]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "0.6`"}]],
      Annotation[#, (
         5. (0.2 + $CellContext`\[Sigma])) ((-$CellContext`a) (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 0.6, 
       "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwl03l8DwQYBvDfbl0qikpilUJRupwVSpcUC6VQje5jylFIhA5COQo5kyJ0
o5NhZo4dGLMLc+1wbGOzDdv49vHH93n/fz7PGxkdE/V2UCAQeFTEumtYyzri
WE88G0hgI5vYzBYSSSKZFLayje2ksoOdpLGLdDLIJItsdrOHveSwj/0c4CCH
yCWPfAo4zBGOcoxCiijmOCcooZSTlFFOBac4zRkqqaKaswT0EEQwIYQSRjgR
1OACLuQiLuYSanIpl3E5tajNFVxJHepyFVdzDfW4lvpcRwMaEsn13MCNNOIm
bqYxTWjKLdxKM5pzG7fTgju4k7u4m3toSSta04a2tONe7uN+2tOBjjzAg3Ti
IR7mkaDzW3mMzjxOF57gSbrSjSieojs96MnTPEMvnuU5etOHvjzPC7xINP3o
z0u8zCu8ymu8zhu8yVv8P+IYBvAO7zKQQQxmCO/xPkMZxnA+YAQfMpJRfMRo
xjCWj/mET/mMcYzncyYwkUl8wZdMZgpTmcZXfM10ZjCTb5jFbOYwl3nM51sW
8B0L+Z4fWMRifmQJS1nGT/zML/zKb/zOHyxnBSv5k7/4m3/4l/9YxWpiWcNa
1hHHeuLZQAIb2cRmtpBIEsmksJVtbCeVHewkjV2kk0EmWWSzmz3sJYd97OcA
BzlELnnkU8BhjnCUYxRSRDHHOUEJpZykjHIqOMVpzlBJFdWcJRDs/wkmhFDC
CCeCc4XAu0k=
         "]]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "1"}]],
      Annotation[#, (
         5. (0.2 + $CellContext`\[Sigma])) ((-$CellContext`a) (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 1, 
       "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData["
1:eJwN02OjFgYAQOG3blxubRk3LSzbtpaxtMx7a9m2bWPZWrXFZdtu2XbPh+f8
gxPcKLRKSJhAIBBGIoUNBCLzA1GISjSiE4OYxCI2PxKHn/iZuMQjPglISCIS
k4SkJCOY5KQgJalIzS+kIS3pSM+vZCAjmchMFrKSjezkICe5yE0e8pKP/BSg
IIUoTBGKUozilKAkpShNGcpSjvJUoCKV+I3KVKEq1ahODWpSi9rU4XfqUo/6
NKAhf9CIxjShKc1oTgta0orWtKEtIYTSjvb8SQc60onOdKEr3ehOD3rSi970
oS/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclMYSrTmM4MZjKL2cxh
LvOYzwIWsojF/MUSlrKM5axgJatYzRrWso71bGAjm9jMFv5mK9vYzj/8yw52
sovd7GEv/7GP/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN69zg
Jre4zR3u8j/3uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7yic984SvfCAT5
nLAEEY7wRCAikfgOL4qDSQ==
         "]], LineBox[{777, 778, 779, 780, 781, 782}], 
        LineBox[{783, 784, 785, 786, 787, 788, 789, 790, 791}], 
        LineBox[{792, 793, 794}], LineBox[{795, 796, 797}]},
       RowBox[{
         RowBox[{"5.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", "\[Sigma]"}], ")"}],
            " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"0.30000000000000004`", "\[VeryThinSpace]"}], "+",
                     "\[Sigma]"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                 RowBox[{"Max", "[", 
                   RowBox[{"0", ",", 
                    RowBox[{
                    SqrtBox["a"], "-", "a"}]}], "]"}]}]}], ")"}]}], 
         "\[Equal]", "1.5`"}]],
      Annotation[#, (
         5. (0.2 + $CellContext`\[Sigma])) ((-$CellContext`a) (
           0.30000000000000004` + $CellContext`\[Sigma]) + 
         4 Max[0, $CellContext`a^Rational[1, 2] - $CellContext`a]) == 1.5, 
       "Tooltip"]& ]}], {InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {0.8454864454465354, 0.6033236168413125}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
     EdgeForm[None], 
     ArrowBox[{{0.8227790976697971, 0.6108644089609097}, {0.4370969382404113, 
      0.5787242290084611}}]}}, {
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
     None], ArrowBox[{{1.5663584565734663`, 0.5724497596537493}, {
      1.4881763553475893`, 0.4525991157118264}}]}, InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=0.6",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {1.4348107849933927, 0.5924503865217378}, {
     Left, Baseline},
     Alignment->{Left, Top}]}, {InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1.5",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {0.3349638588028113, 0.26216996849313245}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
     None], ArrowBox[{{0.591635534247574, 0.30441134900448485`}, {
      0.21618130854289042`, 0.3782188921938563}}]}}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{26., 5.938776}, {24., 3.438776}},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 18],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-0.04166666666666667, 
   2.0416666666666665`}, {-0.014583333333333334`, 0.7145833333333332}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.867957477838451*^9, 3.8679574956622515`*^9}, 
   3.867957529299412*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.856542472605996*^9, 3.8565425058668823`*^9}, {
   3.8565425626254168`*^9, 3.856542573565262*^9}, {3.8565427528818927`*^9, 
   3.856542787512636*^9}, {3.856542819610372*^9, 3.8565428296150413`*^9}, {
   3.86795433403913*^9, 3.867954358503378*^9}, 3.867954393556321*^9, 
   3.8679544240645676`*^9, 3.867954462140786*^9, 3.867954534586128*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Logarithmic case", "Section",
 CellChangeTimes->{{3.867952905108237*^9, 3.8679529104761105`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "LOGASTAR", "]"}], ";", 
  RowBox[{
   RowBox[{"LOGASTAR", "[", 
    RowBox[{
    "\[Alpha]_", ",", "\[Delta]_", ",", "\[Rho]_", ",", "\[Sigma]_", ",", 
     "\[Gamma]_", ",", "\[Omega]_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Alpha]", 
      RowBox[{"(", 
       RowBox[{"\[Delta]", "+", "\[Sigma]"}], ")"}]}], "-", 
     RowBox[{"\[Delta]", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "-", 
        RowBox[{"\[Delta]", "*", "\[Omega]"}]}], ")"}]}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Delta]", "+", "\[Sigma]"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"\[Rho]", "+", "\[Delta]", "+", "\[Sigma]", "+", "\[Alpha]"}], 
      ")"}]}]]}]}]], "Input",
 CellChangeTimes->{{3.8679529307610044`*^9, 3.867952950262889*^9}, 
   3.8679530286084766`*^9, {3.8679530637825065`*^9, 3.8679532293951764`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"LOGASTAR", "[", 
      RowBox[{
      "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]", ",", "0.8", ",", "1"}], 
      "]"}], ",", 
     RowBox[{"LOGASTAR", "[", 
      RowBox[{
      "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]", ",", "1.2", ",", "1"}], 
      "]"}], ",", 
     RowBox[{"LOGASTAR", "[", 
      RowBox[{
      "4", ",", "0.2", ",", "0.1", ",", "\[Sigma]", ",", "1.7", ",", "1"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]", ",", "a"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", " ", "Plain"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", "Dashed"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black", ",", "Dotted"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "18"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8679532704727793`*^9, 3.8679534423003426`*^9}, {
  3.867953482990657*^9, 3.8679534835353146`*^9}, {3.867954594028721*^9, 
  3.8679546131177855`*^9}, {3.867954668630855*^9, 3.867954670304698*^9}, {
  3.8679549649332085`*^9, 3.8679549684496007`*^9}, {3.912276624598828*^9, 
  3.9122766529829917`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[CompressedData["
1:eJwV1nk0Vd0bB3ANSpSQlFCRUkjqDUn9voaKTIUKiRQaCCmVvCQVbwMaSIqk
cCuFMlVcum53MGUuSShdwzmZkiHE/e3+OOusz1p7nb332vt5vkf5oK+tx1QR
EZEf5Pn7NvfoqmFRHv+bL9tg6GFFYbrJouOt8lvAX/LRYWQHhX8exCVky+9C
dWRxxUVbChbvG7Luy7vDg46euGZPwd59pPCWvD9mzc7r3XuAQvOa/0wi5S8h
k1v2Y+IkhZgHC1nLncKQ+Ngn3eA0BfO5aZuKEsLh1Ooc5R9AIa+3QqdvyRXE
dsp9bgiiEJUus9JmRRSUXHK5HmEUkubvCL8qH4Naufrex7cp/Pv+DmdPfgya
xnuuJdyhsCfs69RlTreh/tGNjrhLYfaQX0hBQiwkhmdJHbhPIaA+JqB7yV1c
nbN2tCGFgk30Z0/rFYnwX/i1dGY2hVCxbLUr8ilQ+v14lFFBQd305uWs4ymo
nKLz2KSSQm2YL9XET0HR42/BX6ooqE7TfKZ1OhWdBiz+1DoKvIkUrfpaBoIH
br5QaSTz/4rVWRLxFPst+1LzBBRy156KNfv+FLyM53flOyi4HLcb8duYhqbt
a9ee7aSQ2TP3DacrDes2+x7WoinYdl3e5Ln1OXREuZl+fRTimgNNciczkG18
xvvAKAUjRceUlt2ZiFfwY94co0Dv1RMVS8+EngFD7u04hcXdZ93SV79Ak82+
6dKTFHyP6i4X+fICtjoth25NpSHjnvkkdUMWcj2y1KQkaDg4Pszs/5mDNOWs
aoVFNPqadok/WpSL2rVHjlLE4S5iHnYmuXhupPYnR4FGtpvvoryYXHzvrVLa
pkRD0mdz2L96ecgfu5C1cykN7oXGvTOCX0Fx7Kik+Aoa+0Qjc1+lvoK9f3Hz
a+KB/wyljla+QqfbWJOHGo2lkY+55Ute4+O4tV/+ShpBd05p32S/hj74dtYa
NNY9l56hKJaPzT16Ycu0aZRqcV3fa+dDhp+Rkkfs+jKg4JxjPgpMlimbraUR
mdd6/FtaPsK78w0OraPRxUpvYlgV4FKyh9H19TQSP2x/uTaaCY3Nk2WxG2jo
OExIfC9gIrttX7+UPo2Kzy8OxQiY2P5CJf4K8WjrAsURnUK0elpePb2Rxi66
PZz5qRA7rvyYi000JISh+0wXv0Xv29bMCNCIO2rvorntLfzbuBa9xKr1mq7S
Pm/x3L3nvrUhjf89bXBrKnyLiN+1xySMaLx5Gpv7SosF1+ud9CljGiL7Q3XT
jFmI/NTm8554m+yxVwl7WDAbd3u9zIRG3TmjN6HnWFhrvzu5grjHrptpUclC
lSdLQmorjfWzGjb/r40FrfCqXmfiwKLiIu1hFibm81LTiGeuusOav7gY3nf2
xhpuo6E8acRp9S6Gvd20LBdTGruf3Ck/OYeNYzULzTy200hwvmB5SJkNTWfb
fx4St8l4v3fQYUPU7P3sL8S+wcZVm53ZEIvOvWFtTuOKbU/tzHQ2zrBHZqhZ
0Kie+clujMVG2rLfUXuJ5QrZ9d31bIzftpaOJE5Wi/tY84cNV0a9eB9x4R/j
z/GW75BjGjPKsKQxPWu1U5TrO0xnMoJqic0PL/xy3v8dJOQDRSeIG2p6mj0S
3iFQhlq9w4rGT0bctzXd76BxboZIF/GGfRcPqohwYLZyZ4OENY1z0j7fZWU5
SNNUe6tFLBFk0j5qwIFdaR7Xj3i5TW/Xu2sc8Ot8a7uJF4WYbjz8kIP0iEVZ
EjtoSKUnXRN/xUFN06pLq4jHxOy0bNo4cN/CFT1I3K/7PGRwhIPtF/1eBxG3
u4vW3JnDxZSXbLdY4mrWq5MtG7goMvdP4xFze6W4odZcPK9vNmsmzlf0lFvu
zoVT7GT7AHFqgOIbr+tc1G11VFHYSeMe45T43FQuwhXCOauJb9RXOmXlc+Eg
utMLxIHaoZO/27n4ZXKxYj+xr8vnHQnjXOyYV3bFh9g94p+HkOahd+SITRDx
3vyIgbYVPBivLlG9Qryjq90kfBMPU/Zbid4m3iKH26tseaAynAYfEG/cEtdR
cZiHoHy7X0+J15z4qXc8mIdnSdHTsolVk8yvzIvmwXfmmRUFxPKVyZ/znvDg
qGzvzCaW/PNHY28RD7Oyrz4tIZ6uvid4oo6H+IWHZlcSj9pnViZRPMhYGPxX
S9wbJrZ0i5CH++2OCh+JBdkH/Dpl+fimPrfsE3Hjt3z2VXU+1MQZMZ+JK+fK
ymoZ8nFD9XBQE/G7zd4eNbv5UKqNu/DXr714ef5efFSuCHnyd3zG3SViC0P5
uDni1Pf3e8n8AMeCWD42tfo4/J0vbqgmzeU5Hz4mQ4K/64lapvFnCpsPL0f1
2L/rvWhzySq1gY9WdVPvUuKAkOZEsx4+Ht+74PWO2Dtdt//H1BIEHpW+xSQ+
2HTd6PrCEtzcuKIth9hhFnVrnVYJjOJ+7ntObKVnLPhgUoLrvx9OSyY29ojX
OetYgkfFbg1xxBuiB8MVfUuw3fpAYySxSh9jldu9EmgKM46dIl6gJPLvjBcl
yOBvFzlCPNvCseIptwRDKbk8R+IRhoRvf38Jruif799I3F3vzoqeUQrxTvk9
6sRtU4uk9RRLMXR/bGAhcYXL8Zxg01LwFg98/EXuIzuiVFTZuRQKueuXfiV+
la9izzlRipyh+anlxI/kPoyKJ5aiuWTEI4n4TKU+4gZLoTLt2TdDYkmt3PZS
sTJwX/5oW0mcEqkdMa5YBgnGHkMp4hpLtUaXrWWYYjQk00zqT6Nc9uTy2DKc
vyWj5UvMVr8hb59WBo8+LzVbYoerEqzLRWUoNDl4cT1x2Papc7o7yrDrnOmh
EVL/rfw+RpZeOYysEnpOEZ9W87ISWJRDQzFKehfx7P86fs13LccZeaPEtcT6
25oNz14uB9u3Y5Am/SWaU/YZjeU4HVXzbA+xaXGq5PvACrBSE77JkH7VslQ5
dzKqAgvS67o6Sf/zP5/gpJ1cAdkvG92ZxA8R/SS6vAJ6G3bmuxGPF5433qv4
HhV/nIafkf6Zme90urPwPcyOthkuMyPnlyPdMmVKFUQb94e93ELyM2J8l0Cu
CrHLDuzxI37k3l7O06zC9Pnx97SJNee/eXPNoQr7+HdC0kkeGJ92vT3/RRU8
zaOqkkh+6CbYM2LWVGPnmpcqPiR/DrgwnJ+0VEPT+6r+EwMal8wV7t6lqiHB
ul1sT8zQvVF/dbAaweYfa2YQd0sGWniL18Bu155IN5J/p99a6a/TrUGoGfP8
ApKPEUuHZJmRNbjmktR4VJdGXptJRdWmWmzb8VaTSfL5o1noz0jTWgyP6F7b
TzycUSRnaVuL7ImJ8KnEev/qHyg5XAsjCUcH0zWkPuetGWbdqsVPdT3fitUk
H7csWprVVYuHLop1HHUaTEb/yZiYOnKO+SF+quQ+eN5XcOyux/KXw7+q5WgM
rdg8N927AetmGIb7kv+jqaPPpBSWf0bwg219Op8o6Apd8+wyvmDwgeBzeS6F
ikvrK3nqrXj0UFnf6haFJTd+jD7t/YqkVwHRFp4Ufoy0tnzQbsMUxvW2LhMK
KXRBmWTUd0xu3PDDX56CpNLjPoFAgOaw8+80+roQcTT3UJJqBwa6eiud+V0Y
NnwmOBLSiYszilUG4rvgv46TI/euC3NmxRRbnuxCawbnWo0yDbP4kmID0y6M
e9bHrwr8gUK/pTZiil3QMJo5eaigG4dLzRiNvzph+kj58MsFvfBVtakKKOnE
GaX9Kt/29eERp4ivndQJze7dEg1W/Qg6p+vbH9CJeXP7xThj/Thw4lT1Y+tO
TH8bn7ks4SfOtL2QOK/WCa/1BY2zLAYQ7L3bz3OiA8+2H0wqGh7A8vIvfmfr
OzD0Y5FUR+wvGCxed+lRRgdy7UynxWwZhIXODZuJsA6EmIU9yOkYxIltp4e9
XDug3Gz+KTlsCBcusv/5ZdCBjXqXYuTXDSNi7rl/+LId2Le4anRK3TDOjo89
S+hvx1BZZNvx0BFoVSvNqittR9x0F39b1d94nXGsVZjajnktuY+mcn5D+0G2
DC62QzQ4dJe+3yiYHqu9hp3bIfLUJbNNZgzpAa/1Iw3aceJeZqQMewyi/DPm
GXLtKNS4LCbtM44Pvt6mnQMCSJuf0Lwg+QcjIlpKnTUCfFldXXeW+Qec8gaT
8AwBXiRCVeAygXPnfTVbIwVwztSVVpqcQPrjua06PgKcD3sY+iVtEoGJInqw
FCC9Syle0lKIEcucBbSmAJfvh7m2WAvxvWnzbxdid9ue5Rk2QnRrJ7XWaQig
yGS+sLIX4nZ1D7tQXYCr1514EQeF4O9Nbrq5UoAjund/ip8VImOxxm4DVQFU
LsmazWQI4XLT9FC0ggCTG4LmNDwRIhGGyrOIG3u+1zKeCcEsmPH93CIBbthn
O297KcQ85nigp7wAQnXbk2FMIfatDfpjtIDst+Z64rQ6IapOXNk6ICPA6/AR
t7oPQvwK1fE+QhxjsH9V8ichdn94Gt8iLYBFqlaOcYsQpu3U7HIpAfID3peG
UkJs6Cs0TJEUIHa1znWbbiGaPR4lLiL2a0vYpdwnRL2D5bSbcwRYaXmslTUo
hOKOvq/BswWYPqU+5caIENJJnY6DEgJ8zTXwdB0j+xFLafQkZnomr9GeECJk
jarrN3EB7iyRGBIKhfAsONxjT/x/nIR0Iw==
       "]]},
     Annotation[#, "Charting`Private`Tag$3328#1"]& ], 
    TagBox[
     {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJwV13k8FW0UB3BLvYmytChS0ULK0oYIvyxJpLKFSEIJLSoJLZbwVmj1KpIi
SYTKkp1Qyn4X+5rLvXNDKSRU9338NZ/vZ+ZzzszzzJxzRs75tMVRAT4+PlF+
Pr6Zo8lRilbGPapb8tfcxc6SjVkG0l49UoY4qngzx96WjS2PH8RlSVlBMP7c
PatDbJjWtbx5JOUKJd0Rk/VubNi4ThTflfKGM/PjP8f92ehS/dcgUioEJwJn
1es+ZuPJ4n1hN6SiIC+9/0B3HxsX6+5XHiiIgkDcleBWNhsHQnsFVtv/h9jj
uFnzhY1542cCCuOioWl8LyjuBxu+zCjfoZUxWO/L9Rvk58D8XrvHXvl4aLCU
dU1WchAklKVwXSoJ1luFy92sOVi/6861N15JyG1fItRlywE99DS3oyoJc4/+
22rqwMEaQaU0FZ9nUApl7JN04eDDnyQVJj0ZosbPFzh5cTBvNFptZcQL9B0O
NKRf5+BBl79Bzt8MKFZ91A7N40BPxi6p2zoT5uLCkwaFHHw5qDFbKD0Tj6tK
8/4Uc7BiyM8lXfkVGGkD7s4VHJx2V1/L1/kKaoGrEr7XcbDANTPl2bY38JcR
C1Ht48DWLiFz5Hs2zLL+Cz06h8K3DivhROkcmHytETgzl0KYo9BRS4McLNgQ
v9BPhEKWy2np3KgcXEkInxMgRkH0lE7oRY1cxKj1tzkvofA+uO3gP5ffInye
pPAteQqbX0r8IyNUAE3BHK14fQqfVN471W0sAHeLRqKRIQWn176FV+wKcC3v
tP7QTgqRuT1en1MLsGGyT1d1NwWqLL0j2awQHOOBxKh9FOKbdr/edK8ISoPn
6b32FER4QQ67VpSi4V/d4dizFB642zgqGZWidLzi7eA5CmuYSk4Sp0qhYHFm
v9Z5CrovWlw6ikvBf8JisvEChfwX0TlvVcqQ56p+tf8ShWHLoSLT+jLkKPdt
eR5GwTrlfs25+eXYvGiyJPMBhbhDwXuOyZWjt0xnc1kMhb4FJ+ts1cqR2bSO
Vh9L4fRl/QadQ+UoizSMY8dRuG4xTJ+TXg4+n7oMvgQKxb/12x/uqYCb5sqR
3hQKa82/UhXhlfD/LnzQ+S0F6YBdWm4JleDr13XZl0dBPP1JuPDbSozfFH6k
lU9hSshSxbyvEjmKoy9FCik0lr09173tPWrCS8IelFDw3xj099fAexzrtrA9
/J7cj2P7vrjp90j0MH208QMF14gtCZD4gE1mvVp8VRT2UQMGYdofEPJa/3rs
R7JeT0yuL7z3AV5quVmFNRTqxRYtUtlRhaWKmtve0ChU6Jw8SrOuQrOM2FIP
OoU8zw+53p5VGGRv9ZZlUHha5WtXGF0FCSnmi2tMCr4BXfHGw1UovrPPcFcL
hVXfkhVdYj/ixapvk1c6KVyo18SDsU/gak3SBwbI+6SSM/BJqBpjkKlxY1NI
itwYMS1TDUEj42SKmLZHoc1xZzVCfLeLcDgUNtQsOrc2uhqxyfdzmrkUeqq+
Jb/RqMFFdnRO8DAFHwVPs37TGuwSHL8ySjzvX/boYqcabIvy3OHylYKmUdcO
v2s1CBZ98grfKNyrrG5HWw3Cl2YcHxqhsOvdM9E6/1o0BF7bKTlGoVtWLufv
zVoYqRxYdYHYOzDOfuPTWtAcHIVbiBNwL+VeTS3aslL4osYpTBcH6h+UqQO/
3O1nAhMUMgvsfTjFdYj/9uBD1iQFI+kWGSl6HcJutnfMnqLQ6WdRYcKug4hB
+Xwb4rmau8UzROthd/d5zU9il7fqqd6H62Gz7nTtht8UlmRLdPPzN2D7hEn5
ib8UHCKmrfolG5Bds7c6lzjRdaDmg1IDjhVItPOIlRbn54fbNoBV/3TxLR4F
fR+n/xa/asDteM0ViXxcXNtrMu/X+wYcNQ0J7Seuk996tb2jAR4av/+s5efi
5eDVvAbBRhQWCCkkE6vH2SRHqTai/8hOv4cCXNhdq/0cqtUI6bNvrzcTX/LW
W35hZyMSsy2zxQW5eLdnQ5SdfSN0V7g7BBPv+fM3aMW/jQjPhKT9LC6OOCYf
SuluRGiu1HLWbC5CTJbFxHAb8Wyif5/4P1wkq99m3hhrxD372HRt4iFRf9OT
wjRw3xUP3yX2KTXT3KxOg8GzE3Fqc7iISSv3Xq1Hg/F8KX0H4qL7Gq8W7aHh
vvkV6WBifi85hYkjNHi9h1sNcYTs+KKiSHLelXPDSoiLjHke+9Mf0NB/P73X
m5j2qzs8/ikN5/MSvKKIJWkfBYLyafB7l61PI04IihvZOUCDSu/Tj3pzuag8
KaGkMULDRDHfXAditl2Y27ppGkQ+p904T6y02atbWIKOlzxX62Ti3D6D2gZt
OraWHpXlETcbB32P3EVHq0X+2oXCXPzMKJHcY0FH3e9aP3lijYuaRz660dHl
ZCthSmz72Scs7Cwdm4wPH3Ag9t2VnWZ4mQ7+JMPhE8R5C1V/lt2lYzuKF0YQ
t/qdWBbwiI5m6ZakWOJfPS926KTQMZLceSOFeNvLNeH5xXR8DXlpWz4Tf4Hz
qwsf6ZgtM65XPxPf93GTGoOOq9/XXm0jzjeUln1D0ZGetkn8K3F7qs1Or1E6
SnODD00QT4n/56Hylw73/Smz+US4kL5AvzUkxMCQmP1cIWKtLrGc1IUMrLpj
4S5GfNDArP34CgbUfXbKSxL7v7jBk1dkYLs7d4cMcazYxzUDWxhoWT6aL0dc
cH62yVNdBposJO/KE7d36J8+spuBWsbs6vXEU3qBUSutGEj1P+esMpM/pTi/
y5EBq03iDpuIt4tOdz90Z0B5NPztFmIH722zDnoz8Lz+v/NqxJfazysuDWCg
nt0RrU4ctyNrb/N1BmjeIjIaxEXJI+eiohi4+qlx9ow756nEWDxmoHNvi9XM
9b/PepaIpzIQeP3T3Jl4Mm0prPpsBjZIm6+dyacDtlBkKQPbSiVTNhI7Plut
YlrNgNiB8rvKxFdEjljObWLgYefUgCJx/Jl436oeBvLOHktcS1zS0vEo9AsD
8fapH2WJu3WkKgzGGTDnedgtI/779ADFz8eE4JCp9WLiFcJR88uEmbjU8q1I
lFjXi7b5ymIm/J/8uj1nJn+zqK22LBMS++fQeWT/rmjvuTy1ngmhZUWBM/tZ
KlRV5bODiaq8KMUB4t5Ts4a3mjKR3TG2poOYr0lvwag1E2NF5243Eu9IKHI4
7cnEoYs6BfnETnOmgpR9mDi9vcQvnTjwpMbzwUAmVIM/pT0hLtN8890tmuSv
6HMPnYn/+JukfAITf+xlJ3xm4v+jrN2fxsTrwl2TbsR69OdhTu9I/kepjsbE
5R6PltkNMXHV8mexAHEW19PT8Sd53gc6u7+T7yvpuFahC18TrO76Hu4hDj3W
cvDUoibcTY1TKSA2dpaIvardBE85Q1cPYs3PPdxrRk2QSmBYWhOvd8rQvLm/
CTZNX2kgnudo2vbAtQmduHFxIXGDXejSjIgm5OwMvZ1D6kNZq+XxrOgmaO9M
5ntE/MpmVV7ekyZU2nwSCCG+a11qU5HdhFydqpL9xAfMJ6NbO5sgPu0kN0Dq
U6fxycWCys0wcvQYniT1rq5q+1EhjWbYLL6Q2U5cYiScM1+vGdKpC4ULiR8b
Prdaat0M7yO3bvgTO+/4fE/5cjM+WV2qGCP1ldKwXmBbR+LFiHs2k/o7Lq8j
ln6yBQdoaYrmpH7r9ulX3fBtgbezvvAq4rBHxgHHr7aA7rI04Aep/5KLrL6t
jmnB0kEo3J3pB/yeDbGVLTglGnG5lvQP344Ht64ta0V7Rc8TZdJvft8aE3P9
1IrfW+7EJ01TMDSdqtJjtsJ584am48QR//AFruxpherc6ZdKxMsvi4y0j7Wi
I6lQL4v0P12PVY3msm1Y271auIj0zwDD/bdxoQ32svrHi0h/FZhME1+2th1u
qwNo/qMUltXpj0K1HUl7+2K2EW9NaGty1STnr7lK/fxB4ejuOQ8zzNpRqc/U
9SL+GOO8Vt+nHSd/Z60/8p3CLS0pLfeqdiQyFMrUyHwgcynM5a17B9YFRCSk
faGgznPKtczohMnF7+4tvRT2mJUF78zrREKfdUgYscvDlfs0yjvx5oeAmxrx
bY1ujnRzJ0SLpkPv9lDgnraX6vvTiSbtElWTbjJf9lpf8jLrwgmxeIfMDgr8
5Sb6kUNd4I0tcrFoplAbsrX+w/oeWGgX188i89nK24OTL7724nrV7twNrygM
TvR0N23sw6j45qyiKDI/fSmsFr3JAhVe5/fVm8xXy59/6+/vh3Xe0D5hK7Le
7jnHnqxhQ1DhIL/qVgo/d6T1Hw/goGFp11ScOJlvNldmS1ZQ+CWw0ubFVw56
MirDaXJfkO0Y6a/7iYNpD+ZDRf9BSC7WmyOUxMEGvTl/jxUOYd3BkGUCQRzs
SpRze73kK/oj70/UH+TgwvLDqz47fMNsZrCOoAYHSkPWIi1mI2j6vH1j10IO
FoqNCFVOjcDJ3TClcJj8D5Y+zFwd9x3KAiKCW6rZ8Nxa2DbX9Ad8VQvmVT9l
I22385OSnz9w+sXzM5pX2BgflBZnR4+i7Nj6BFt7NnIsdwlGGY7h/vTy8Hw1
NgKMQx9ns8eQuFnXmbaADbkuk9anoeOoblv3vHFkAFoaIVFSm38iY5ZxsHLt
ABxWNEzyM35iI81y947UAYxXR/Z5BU0AFaq1FaEDeDDL0dtizS8I2c6OmnIZ
wMLunESByl+o+qHzVdZgALMvB1lpnpmEtzJNsmHlAPheOGb2LZiCVWrMuzW8
fpyNzYxcUD4FUyZn98LOfhRvuCYkcWoaocvkG6bz+yFhclYpWPQ3wr94ql+K
7UenciPDr+g3ZPMvTr/w7cereKzpd/wDb4ZxyzG7fhzKVJdY/vcPWo4XqM/b
3o/A0ISgztS/ONHe8PCMdD/SqeUPRffwICQl+93yNwvXHoU6de/lodVg75r6
aRZcLYbXZpjzsPixyyFjYpmioldmNjykXDL4rD3Fwo1b9h8inHlwYzNV5X+x
cFw95ruwHw8TSfLU5CgLq0IWGc9J5iHi4LvKZ4Ms/N12aX5LCg9qU4+zZYnb
hln05DQejPScUx9+YeG2TdYho9c8CJrdeX6HywJvvcW50CIeuELR1GUOC520
W/GCDGKFlaE2LBbywiZcGE08NLMUGfQ+FqK2H1Z82srDeVtJhb3Eps9UsvW7
eTg2dK/X8DMLBb51n4K4PNzXWRG7uYeFaGW1W+ZDPOzX3bIko5uFM31xVnLf
eDD+uS5WkXjdnhM9ZWM8aM/NfS3bxcIsfmbS7QkenqwyM4rrZKE3Z7uH0xQP
4l6VvUuIizyeqm78w8PlxmVB9zpYuL9SZJzH46F4laWCGPH/Hix3Vg==
       "]]},
     Annotation[#, "Charting`Private`Tag$3328#2"]& ], 
    TagBox[
     {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwV13c4Vu8DBnAaUopIRaUSWkQZScMtFaISJUokoSJFhG9LRD8VkSQiOxkZ
KZuMSMme7zLfcVTKSkXx/p7+OtfnXM8Zz7nOee77yNpeMrWfISAgoCooIPBv
a2g/0Fz+2V5bLMnpQe3Tfszas8ylR3ovnDTcN9AT+qEWGxH9WvoodFRb7tPT
+mFU35nzTNoO3ORExeyifpjb/SoNlXZH66FeuwJ6P7pU/rcnSNoPnal1A8aL
2YhbbHznnnQYDq1MN7e9zca1+idVx4rCoGb32oN9l41j/r0z5CwfI6VHnHk8
hI35467exdHhGP1+s3HtMza82sK8BldF4vJUI2NPHhsmjxiOh9bGIHV1sPEz
Hhs+wq/X3ZVOQiTfr8RCh4ON+g8DclySQDuvVrFCj4MW/0ufmTVJSH7YMbfT
iAP5mUrpyh7PURX3tVDZnIP3U0nKbS3JmDG2u/6CMwfzx8I1VgWmQq8gt1Y9
goOIrqt7cqczUfLyO9+V4mD3iuNJ3WZZUNX9WLVmkIMvJzRnC2dkQTb/1My6
YQ5WDv53JmNTNgxONq8XnuTg0vmtCgKsbDR1/UpdP58LCbuslOfbcjAscDt/
iQoXFsfjs4ZH3uDYhpwXgi5cDDGPzktYloueyADfp25c3LEWtj+yJxeNDaOb
lT25eH3m0rK8sFy81clT1LvJhejFXf7XNPOgXCZzXyuQi2pf+gmhG/l4JJex
V+MFF6ovxYVWCBfhtfXDZ/l0Lj4qV9vUby7CWLFsbBGLC5tXXsU3jxfhf4Zi
Fwp7uAjK63HpSyvCT+F23zQuFwPlGczkg8VI6Kw6aTnCRUz7/ldbHpXgpd8n
y6k5PIjwfU7qryzDC8HxwguqPEScN7dW0isDK6ji5oA6D/JtSjbiF8vA3x4+
ZKPJg3Zq5xlmaRlMS0YG9HfyUJganpuvXA67oYiK7/t4+HZksMSooRxHTs9f
m2TBg1nKk09uCyqRevZha901HqKtfA84yFbi5hR7mHeDh34J53oLjUq804vS
m/bm4dIN3cZdVpWQ189Pk/fj4a7pt5Y5GZU4Hx5RfjiQh9K/uoyoA+/gTx2w
2xDNg4LJ94F396sQ2RG4Z7yQh2Xe+tvPxleR/S8FOMU8LMyIuz8vvwq9F+X+
NpbyMCl8RNmkvwrHAwZLYyt4aCrPd+veVo1lVssZKz/ycHWzz/RvbjXcTy2p
ienkoUFMUlJZpwYVmfyEt6M8vNvlbN9sVoOdk/2mJ3/wUOD0Ps/dqQaiS2k5
v8Z5SKzxOl4cXoMT8aHB6yZ48PLuijH4VoMn740XXeDzsGYoecOZpx8w09j7
yz0RCp4NWoj48RGxAlEC6msoiCrncj8K1yJjxMLZQ45CUtDmwD8ravH7YJ5C
vjyF5gPr6Nb7ajGw65GP2joKip8k3RTCa1HIn1oppUShp2YoOUfzEwTXhmSF
alDQr3guWn+1DvGml3xP6FPoXi2bO/2gDmXGWhsdDSi434q23JxYh5LSeSe8
9lOIx6OUR5/qYHvoiUWIEYU/pbd0T6yox+5DDwWyjClkFVl6UKX1CFha6pxi
TmHpG/FuQcFGTLNcGsIdKJwM/HOUs6QRtC7NqKCzFBLsuJ/eKzVi1VyHz77n
KCgtLiy8b9GI/TRV8fOOFHQ9bB4vzm5EWU1wudxFClujzZPDVJogE39T4egV
Cqetk61Supug2hJY+NKXgp/h8sjIz02Qm6oR9LxNIXlrSNu9H00YcjEW0PGj
MCh61ch5XjM487C2wZ+CR9lBLdWtzVCXngtmAIXA1eOSJUHNUFC6NVD4gEJe
/566xp0tkPk03hQaSaHDwGckSL8FrntZyWpPKfzMfLvkgGkLXhYbn28l1rym
dfrD2Rb03H9SIBZNoWCRys/y0BY8ptnFX4uhULh32eqcgRb8MQqMlk2kwEgz
3+cy1oLQwKLqV8STCx87Kk+34JH28286SRS2d4nlpi1qRZqakPbJ5xSKrsw2
TNRuxRsJAf6dFxRKkofdwsJaIS7p/C0jnQJrvnKkaWwrugZ9fJRfUvh72ent
wrRW4K6QQibxLvCEg8paYRNjGZOWQeFtJ/OZ/xdyPqvWKxFZFMqEa2o8dNog
tDEjxOA1hUrHZ8uPD7bBq/vKpEARhdefnZysf7Zh23LxKGvipHPbi88ItIPx
dPp2MbG/Q+eJi5LtGNEI2eJWTMHAVvzp7Z3tcP0aI8ooodB43F8qM7Addtkm
DnfKKJTTjpx7Hd4OumYfi0acbb6moCCuHanp9skbyymEmpWZv3vTDguKoV5H
fMxkIpzGaocsR9FkTiWZr4Hz4pmbOjB5IF3CuopCfc0Oe2HNDkiIRM1MJn6r
Ny93we4OJNifNvlGHLv3xVEpsw5ciGqefbWagq1O36NNNzowEJ3ff/89hQFN
MwmL+g40CSl8f/iBAj1PztaqswN/qg+PNhLXaoy+su3rwHc/v5MLPlJIVws2
cR7vwKp8Lfs7xBdVPob4ynSiYVrF3LWWwvjaXWIZzp3YEzyqoVhHQbtft+ae
VydctUf32RHfeWbgfe52J9bTZ6dHEy+RPDokF9mJdRnCniL15H0XdGp8WtUJ
yays9X3EXsyI4IDlNEivDfFxbiTPLzxG32EtjeTOd5VoYmHTJP6eLTREB97Z
VUsc+SHrEl+PhpVjrV7yTeT9yX1v7HGZBvct7281E/8N/iFm95EGZnbTCdEW
CnuNJmt2t9EgK2q7V404UEjg1qoeGoZkIsPNiWVuiAwzftAw99wOzxhibcc1
TSar6RhwFtRSaCXzUVgfoKJIx+WWK577iBt6N+ks2ErHLJnZcvbE1uZa2R+M
6Nj+KeFdArH33sMh8KTjzc6/WkvbKHzgmxnI+NIhNuE8rEq8sNhS4E8gHdoa
+lKHiOO2nHXJS6Ajt9HwrS9x+cqbhzc10PHCQeUyl1iYcVtYhE7HGp2rlX+J
Dz++Wz7ApqPV2jRgUTuFPpHHm5MmyHiFHA8Qz5hIX7hcgYGDH/YNhhAvr9cd
gwoDz29Z5CcQq8fT2+20GHCu0Fzwhth+/5yozIMMjKv9ONFOfFMm5karOQNH
/aOPcInDR9Rtfp9mwDX2Be0H8YdIWwVdDwZyWJ53JTrI9Z0n5py9xYBd06y8
1cSTu0O+3L/HgIiKn4sysdKX0qz2GAaMzLghBsTB26W3n69hwIo3cNeTOEU0
e8WDZgbUXr7b7Etc3q/Hz2EyINAQfS6QePSee9XfIQbyEj8ExhKLnBJ5ITvJ
gF4s/b8UYnm1hLt6s5iQ/5/9RDbxMWbjoRApJsSuOLwqJ76U5bAldw0Tu3LD
v9QQB9yeWsRQYmLoWEF+A3GcedjP6a1MdAqtl24nLlRUpMvtZsJaQleMSdzC
ryg2MGJC9pzt017iL60WMc5mTJhHcIq4xDNThm6FnmLCvl3O9Qvxiut3zuSf
Z0Lzx9XS78Qah2X0WG5M1F/YGzdKfEj+zXrBm0wkn2BI/yR2+G0osjaACbUb
4RsniL3r+r4ZhjJxaFtLyx/iiDivpkvRTLwM40lME2e7i70OS2bimI7SVz7x
R4Pkx4XZTIgE/7EU7KTQv2KXV3cREx+vvrSfQfxnuPXEzGpy/0nhwjOJJasd
d61vZKLCVHzfP2+KFFx9kM5E4xW35f+s5xwx4zKbCcekRYH/jj+1W4Ub/o0J
4ZUGT/6d32vx+5riX0xQtQ67BIhDPp9M6xVkwX9n9c1/95daOhY4ez4LvzMK
LP8SVz68d2njEhbcZ4W3/Zsfw17W1Hg1C2GNrz7/m/+YVoG6+0YW2PttosaI
54saL41UZ0Hj+PjnIWKFfu5EqTYLi4Kr2r8Sa+ddZ/UbsLBug+wpitjFOi1e
yYqFhz31Rl3Ed1V3+5mcZcG5szKrkzhBiObg4crCqa8PcpqJWzNnK5X7s7Dw
yejjKuJB32hRbjALhteUPEuJZ5mrjcx9yoLJYt/fucRb+TZ5RzJZ8AyqYD0n
PnCw3HdfAQvScx5deEZ8JmqVsWYlC16bL8aHEYdodlPLOlgw93b640Oc7L/r
zfxeFoJ4srJexCWt0bemP7PwyGfeN2fiz5cspfunWLCpfOJlQSzwtojbOqcL
9hcbth0kXjJ/WU61eBcsLC3jdhPrptAMUxW6MD0d4bCBOLrX7LrLwS68cbrW
+e/7zFHONbA170LWPG0G79/3el1y8dHTXZgce3iHRjwu1ZqheaUL0dJCXUXE
h0wO90xHd2G/VknANWLBSkPdoMEuXHrqtPQbWW+kFqaJev/swsELT1rpxMrW
c5kuAt1wuxex6z3xickat6OS3TjFXbMihviN6r7ny3d2o17Ub54hsUMihNPu
d2Pue1FuKFkfr4/EtEU97gb7rdCzq8SPMB0XFNsN6a10IVvicmaJluvrbvRW
Co2oEEtLbnfaxuzGz0T9tR/I+lznp97wfmMPskrL9n9pJn1C7NOMhxo9GGy7
WF5LnBJ5WtNSpwdSjlE9acS3Mx/EDZn1YJlKpJTjv/G0gctSPj1Iyze6wSF5
kaL4bKljZw/k9pSbfCT5ovvZN1tItxcqg73SZiSf/lNuqHXS70XODgMlReJs
N2lu04FetDTPHhYgXjmdJR1l3otXskGB6STvJiS6fFWceyHuwV899YmM36lp
ZhHRi/elO4cfkvxcFfJ1IvV7L5yXN/bdriF5fto7NWesF9crb4scJbZWW3S8
+Hcv/jd+95cccXTH9oK6GX3Yr2O49B3JcymZex5DS/qw6u+nq9Mk7yXS1o+p
ow99kbTJ86QPzK6yHywL7kOu+8jKxRUUvv7q6W7f3I/EJVOe1YWk/50NrjTc
2o+vDVqnfYlvdWonl+3oR4FfiiiIl+Q/c07V60etQm9efsG/vmr59/rJfizY
MF83OZ/C0x8d0vIB/Ug/5eDslUv60Ej90cs9/bCI6Dg1mk3605fiWtEHbCzY
InxBj/Q5UZkXQxwOB86/3LxXh5L8PZ/rECfPQ6S6zS3166Rv6qRzznmT56Qi
cPeyLennqlVvlrwbgFXxfIku0td7MqvuN8t+wZTp7b4KRbKeObZFbbj6Ffv6
PqfNESX/A7vnTDsUD2JZo2im+wgP+gmyZ18t/Y78h0OpRc08eMqcWtN3cgi6
VP7he695UBo0E+k8OAyhGF9Z/8c8LBIbFq6aHMaqlXM8wtx5mFUWlSUXPYKm
1B0FoWY8OKkX0+cajWJU9veDCjUe0vfbxr39OQoj2Luel+Bh/OuyhbzwMZyt
sNm3c4yL3CP6M8P2/oCHmlirXTMX3gb+sW94P9Ar/Xt90ysuZLsMaYn+40is
PufJDeViu6ZfmLTqT0h5Vtk5u3JxcmXjhGDrT5ixZjQcMOVivDao38XnFxar
CZVnb+YiYpa1u6n8b2QoVo27iXOxqDs3YUbVb+xlpun8GeVg9g2fo1quE1hG
WX2TaeFAINU6q19iEnbr3RQTXnNw+WlWkETlJDgctbvNoRyUKgYIi1/8gzWj
dV7tlzkQN7ys5Cv6F36HJh5vNeOAtamp9b+Sv2iJF44/psFBdgzkOdZT2HCN
dqFpKQdWWVvFZaanYMQwlpf6w8Yt/3gfVto0jnNbIjez2MgYkIkSPcDHChpP
J6KMjYBn/jbdh/j4WG27XJrYzvSbQqYJHzUDTyYj37KxoqQk+6A5H6WPlGui
Stm4F2z5PtCWj6E2icjYYjbObY0cmfcfHy3z+1al5LOxxk/SYE4yH7PD6UUl
WWxMb7u+oDOFD5fETiVtYvo3dktyOh9qKWGJZZlshJi/ttJ7xYeK7oHYygw2
+BtN3fxL+LA4ltf4IZ0NVnNwzMxWPvYbPpXseMFGwZ1fZ1rb+VC1jmoxJw7b
cWpDIo0Pq79Wj+nJbBg9V36j282H0ZX1G7qes1HkVf/R5zMfD2I77nIS2Qjf
pBFsMshHz4EBZwdi1/7oo7JDfEgVlxwbSGBj/YELPeU/+GC7Zm4djGdjlmBb
UsgvPlpn1226SNybu8PRZpIP65GXG4bj2ChxTFTZPMVH4XGTjZeJn6wSGefz
+eCcKVT5EcvG/wFg8Bcx
       "]]},
     Annotation[#, "Charting`Private`Tag$3328#3"]& ]}, {{
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
      None], ArrowBox[{{1.5839986512381623`, 0.7711674880630501}, {
       1.3131463536800698`, 0.7026814058105229}}]}, InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=0.6",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[1.]], {1.3481282560254533, 0.7792993232569094}, {
      Left, Baseline},
      Alignment->{Left, Top}]}, {InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1.5",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[1.]], {0.17942002070267948, 0.604563061928912}, {
      Left, Baseline},
      Alignment->{Left, Top}], 
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
      None], ArrowBox[{{0.3934680563102906, 0.6284250563601956}, {
       0.14091494628962487`, 0.702232599549567}}]}}, {InsetBox[
      StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left],
       FontFamily->"Times New Roman",
       FontSize->20,
       Background->GrayLevel[1.]], {0.783600878609372, 0.7993856775857595}, {
      Left, Baseline},
      Alignment->{Left, Top}], 
     {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
      EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
      EdgeForm[None], 
      ArrowBox[{{0.7579834378269199, 0.8024026633299861}, {0.3372392639039536,
        0.7849498364096703}}]}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\[Sigma]", TraditionalForm], 
    FormBox["a", TraditionalForm]},
  AxesOrigin->{0, 0.5813954145097585},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageMargins->0.,
  ImagePadding->{{35., 5.408163}, {24., 0.5}},
  ImageSize->{395., Automatic},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 18],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.04166666666666667, 2.0416666666666665`}, {0.568007921116221,
    0.8357577889869707}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.91227674065652*^9, 3.912276740672023*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1nk0Vd0bB3ANSpSQlFCRUkjqDUn9voaKTIUKiRQaCCmVvCQVbwMaSIqk
cCuFMlVcum53MGUuSShdwzmZkiHE/e3+OOusz1p7nb332vt5vkf5oK+tx1QR
EZEf5Pn7NvfoqmFRHv+bL9tg6GFFYbrJouOt8lvAX/LRYWQHhX8exCVky+9C
dWRxxUVbChbvG7Luy7vDg46euGZPwd59pPCWvD9mzc7r3XuAQvOa/0wi5S8h
k1v2Y+IkhZgHC1nLncKQ+Ngn3eA0BfO5aZuKEsLh1Ooc5R9AIa+3QqdvyRXE
dsp9bgiiEJUus9JmRRSUXHK5HmEUkubvCL8qH4Naufrex7cp/Pv+DmdPfgya
xnuuJdyhsCfs69RlTreh/tGNjrhLYfaQX0hBQiwkhmdJHbhPIaA+JqB7yV1c
nbN2tCGFgk30Z0/rFYnwX/i1dGY2hVCxbLUr8ilQ+v14lFFBQd305uWs4ymo
nKLz2KSSQm2YL9XET0HR42/BX6ooqE7TfKZ1OhWdBiz+1DoKvIkUrfpaBoIH
br5QaSTz/4rVWRLxFPst+1LzBBRy156KNfv+FLyM53flOyi4HLcb8duYhqbt
a9ee7aSQ2TP3DacrDes2+x7WoinYdl3e5Ln1OXREuZl+fRTimgNNciczkG18
xvvAKAUjRceUlt2ZiFfwY94co0Dv1RMVS8+EngFD7u04hcXdZ93SV79Ak82+
6dKTFHyP6i4X+fICtjoth25NpSHjnvkkdUMWcj2y1KQkaDg4Pszs/5mDNOWs
aoVFNPqadok/WpSL2rVHjlLE4S5iHnYmuXhupPYnR4FGtpvvoryYXHzvrVLa
pkRD0mdz2L96ecgfu5C1cykN7oXGvTOCX0Fx7Kik+Aoa+0Qjc1+lvoK9f3Hz
a+KB/wyljla+QqfbWJOHGo2lkY+55Ute4+O4tV/+ShpBd05p32S/hj74dtYa
NNY9l56hKJaPzT16Ycu0aZRqcV3fa+dDhp+Rkkfs+jKg4JxjPgpMlimbraUR
mdd6/FtaPsK78w0OraPRxUpvYlgV4FKyh9H19TQSP2x/uTaaCY3Nk2WxG2jo
OExIfC9gIrttX7+UPo2Kzy8OxQiY2P5CJf4K8WjrAsURnUK0elpePb2Rxi66
PZz5qRA7rvyYi000JISh+0wXv0Xv29bMCNCIO2rvorntLfzbuBa9xKr1mq7S
Pm/x3L3nvrUhjf89bXBrKnyLiN+1xySMaLx5Gpv7SosF1+ud9CljGiL7Q3XT
jFmI/NTm8554m+yxVwl7WDAbd3u9zIRG3TmjN6HnWFhrvzu5grjHrptpUclC
lSdLQmorjfWzGjb/r40FrfCqXmfiwKLiIu1hFibm81LTiGeuusOav7gY3nf2
xhpuo6E8acRp9S6Gvd20LBdTGruf3Ck/OYeNYzULzTy200hwvmB5SJkNTWfb
fx4St8l4v3fQYUPU7P3sL8S+wcZVm53ZEIvOvWFtTuOKbU/tzHQ2zrBHZqhZ
0Kie+clujMVG2rLfUXuJ5QrZ9d31bIzftpaOJE5Wi/tY84cNV0a9eB9x4R/j
z/GW75BjGjPKsKQxPWu1U5TrO0xnMoJqic0PL/xy3v8dJOQDRSeIG2p6mj0S
3iFQhlq9w4rGT0bctzXd76BxboZIF/GGfRcPqohwYLZyZ4OENY1z0j7fZWU5
SNNUe6tFLBFk0j5qwIFdaR7Xj3i5TW/Xu2sc8Ot8a7uJF4WYbjz8kIP0iEVZ
EjtoSKUnXRN/xUFN06pLq4jHxOy0bNo4cN/CFT1I3K/7PGRwhIPtF/1eBxG3
u4vW3JnDxZSXbLdY4mrWq5MtG7goMvdP4xFze6W4odZcPK9vNmsmzlf0lFvu
zoVT7GT7AHFqgOIbr+tc1G11VFHYSeMe45T43FQuwhXCOauJb9RXOmXlc+Eg
utMLxIHaoZO/27n4ZXKxYj+xr8vnHQnjXOyYV3bFh9g94p+HkOahd+SITRDx
3vyIgbYVPBivLlG9Qryjq90kfBMPU/Zbid4m3iKH26tseaAynAYfEG/cEtdR
cZiHoHy7X0+J15z4qXc8mIdnSdHTsolVk8yvzIvmwXfmmRUFxPKVyZ/znvDg
qGzvzCaW/PNHY28RD7Oyrz4tIZ6uvid4oo6H+IWHZlcSj9pnViZRPMhYGPxX
S9wbJrZ0i5CH++2OCh+JBdkH/Dpl+fimPrfsE3Hjt3z2VXU+1MQZMZ+JK+fK
ymoZ8nFD9XBQE/G7zd4eNbv5UKqNu/DXr714ef5efFSuCHnyd3zG3SViC0P5
uDni1Pf3e8n8AMeCWD42tfo4/J0vbqgmzeU5Hz4mQ4K/64lapvFnCpsPL0f1
2L/rvWhzySq1gY9WdVPvUuKAkOZEsx4+Ht+74PWO2Dtdt//H1BIEHpW+xSQ+
2HTd6PrCEtzcuKIth9hhFnVrnVYJjOJ+7ntObKVnLPhgUoLrvx9OSyY29ojX
OetYgkfFbg1xxBuiB8MVfUuw3fpAYySxSh9jldu9EmgKM46dIl6gJPLvjBcl
yOBvFzlCPNvCseIptwRDKbk8R+IRhoRvf38Jruif799I3F3vzoqeUQrxTvk9
6sRtU4uk9RRLMXR/bGAhcYXL8Zxg01LwFg98/EXuIzuiVFTZuRQKueuXfiV+
la9izzlRipyh+anlxI/kPoyKJ5aiuWTEI4n4TKU+4gZLoTLt2TdDYkmt3PZS
sTJwX/5oW0mcEqkdMa5YBgnGHkMp4hpLtUaXrWWYYjQk00zqT6Nc9uTy2DKc
vyWj5UvMVr8hb59WBo8+LzVbYoerEqzLRWUoNDl4cT1x2Papc7o7yrDrnOmh
EVL/rfw+RpZeOYysEnpOEZ9W87ISWJRDQzFKehfx7P86fs13LccZeaPEtcT6
25oNz14uB9u3Y5Am/SWaU/YZjeU4HVXzbA+xaXGq5PvACrBSE77JkH7VslQ5
dzKqAgvS67o6Sf/zP5/gpJ1cAdkvG92ZxA8R/SS6vAJ6G3bmuxGPF5433qv4
HhV/nIafkf6Zme90urPwPcyOthkuMyPnlyPdMmVKFUQb94e93ELyM2J8l0Cu
CrHLDuzxI37k3l7O06zC9Pnx97SJNee/eXPNoQr7+HdC0kkeGJ92vT3/RRU8
zaOqkkh+6CbYM2LWVGPnmpcqPiR/DrgwnJ+0VEPT+6r+EwMal8wV7t6lqiHB
ul1sT8zQvVF/dbAaweYfa2YQd0sGWniL18Bu155IN5J/p99a6a/TrUGoGfP8
ApKPEUuHZJmRNbjmktR4VJdGXptJRdWmWmzb8VaTSfL5o1noz0jTWgyP6F7b
TzycUSRnaVuL7ImJ8KnEev/qHyg5XAsjCUcH0zWkPuetGWbdqsVPdT3fitUk
H7csWprVVYuHLop1HHUaTEb/yZiYOnKO+SF+quQ+eN5XcOyux/KXw7+q5WgM
rdg8N927AetmGIb7kv+jqaPPpBSWf0bwg219Op8o6Apd8+wyvmDwgeBzeS6F
ikvrK3nqrXj0UFnf6haFJTd+jD7t/YqkVwHRFp4Ufoy0tnzQbsMUxvW2LhMK
KXRBmWTUd0xu3PDDX56CpNLjPoFAgOaw8+80+roQcTT3UJJqBwa6eiud+V0Y
NnwmOBLSiYszilUG4rvgv46TI/euC3NmxRRbnuxCawbnWo0yDbP4kmID0y6M
e9bHrwr8gUK/pTZiil3QMJo5eaigG4dLzRiNvzph+kj58MsFvfBVtakKKOnE
GaX9Kt/29eERp4ivndQJze7dEg1W/Qg6p+vbH9CJeXP7xThj/Thw4lT1Y+tO
TH8bn7ks4SfOtL2QOK/WCa/1BY2zLAYQ7L3bz3OiA8+2H0wqGh7A8vIvfmfr
OzD0Y5FUR+wvGCxed+lRRgdy7UynxWwZhIXODZuJsA6EmIU9yOkYxIltp4e9
XDug3Gz+KTlsCBcusv/5ZdCBjXqXYuTXDSNi7rl/+LId2Le4anRK3TDOjo89
S+hvx1BZZNvx0BFoVSvNqittR9x0F39b1d94nXGsVZjajnktuY+mcn5D+0G2
DC62QzQ4dJe+3yiYHqu9hp3bIfLUJbNNZgzpAa/1Iw3aceJeZqQMewyi/DPm
GXLtKNS4LCbtM44Pvt6mnQMCSJuf0Lwg+QcjIlpKnTUCfFldXXeW+Qec8gaT
8AwBXiRCVeAygXPnfTVbIwVwztSVVpqcQPrjua06PgKcD3sY+iVtEoGJInqw
FCC9Syle0lKIEcucBbSmAJfvh7m2WAvxvWnzbxdid9ue5Rk2QnRrJ7XWaQig
yGS+sLIX4nZ1D7tQXYCr1514EQeF4O9Nbrq5UoAjund/ip8VImOxxm4DVQFU
LsmazWQI4XLT9FC0ggCTG4LmNDwRIhGGyrOIG3u+1zKeCcEsmPH93CIBbthn
O297KcQ85nigp7wAQnXbk2FMIfatDfpjtIDst+Z64rQ6IapOXNk6ICPA6/AR
t7oPQvwK1fE+QhxjsH9V8ichdn94Gt8iLYBFqlaOcYsQpu3U7HIpAfID3peG
UkJs6Cs0TJEUIHa1znWbbiGaPR4lLiL2a0vYpdwnRL2D5bSbcwRYaXmslTUo
hOKOvq/BswWYPqU+5caIENJJnY6DEgJ8zTXwdB0j+xFLafQkZnomr9GeECJk
jarrN3EB7iyRGBIKhfAsONxjT/x/nIR0Iw==
       "]]},
     Annotation[#, "Charting`Private`Tag$2796#1"]& ], 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13k8FW0UB3BLvYmytChS0ULK0oYIvyxJpLKFSEIJLSoJLZbwVmj1KpIi
SYTKkp1Qyn4X+5rLvXNDKSRU9338NZ/vZ+ZzzszzzJxzRs75tMVRAT4+PlF+
Pr6Zo8lRilbGPapb8tfcxc6SjVkG0l49UoY4qngzx96WjS2PH8RlSVlBMP7c
PatDbJjWtbx5JOUKJd0Rk/VubNi4ThTflfKGM/PjP8f92ehS/dcgUioEJwJn
1es+ZuPJ4n1hN6SiIC+9/0B3HxsX6+5XHiiIgkDcleBWNhsHQnsFVtv/h9jj
uFnzhY1542cCCuOioWl8LyjuBxu+zCjfoZUxWO/L9Rvk58D8XrvHXvl4aLCU
dU1WchAklKVwXSoJ1luFy92sOVi/6861N15JyG1fItRlywE99DS3oyoJc4/+
22rqwMEaQaU0FZ9nUApl7JN04eDDnyQVJj0ZosbPFzh5cTBvNFptZcQL9B0O
NKRf5+BBl79Bzt8MKFZ91A7N40BPxi6p2zoT5uLCkwaFHHw5qDFbKD0Tj6tK
8/4Uc7BiyM8lXfkVGGkD7s4VHJx2V1/L1/kKaoGrEr7XcbDANTPl2bY38JcR
C1Ht48DWLiFz5Hs2zLL+Cz06h8K3DivhROkcmHytETgzl0KYo9BRS4McLNgQ
v9BPhEKWy2np3KgcXEkInxMgRkH0lE7oRY1cxKj1tzkvofA+uO3gP5ffInye
pPAteQqbX0r8IyNUAE3BHK14fQqfVN471W0sAHeLRqKRIQWn176FV+wKcC3v
tP7QTgqRuT1en1MLsGGyT1d1NwWqLL0j2awQHOOBxKh9FOKbdr/edK8ISoPn
6b32FER4QQ67VpSi4V/d4dizFB642zgqGZWidLzi7eA5CmuYSk4Sp0qhYHFm
v9Z5CrovWlw6ikvBf8JisvEChfwX0TlvVcqQ56p+tf8ShWHLoSLT+jLkKPdt
eR5GwTrlfs25+eXYvGiyJPMBhbhDwXuOyZWjt0xnc1kMhb4FJ+ts1cqR2bSO
Vh9L4fRl/QadQ+UoizSMY8dRuG4xTJ+TXg4+n7oMvgQKxb/12x/uqYCb5sqR
3hQKa82/UhXhlfD/LnzQ+S0F6YBdWm4JleDr13XZl0dBPP1JuPDbSozfFH6k
lU9hSshSxbyvEjmKoy9FCik0lr09173tPWrCS8IelFDw3xj099fAexzrtrA9
/J7cj2P7vrjp90j0MH208QMF14gtCZD4gE1mvVp8VRT2UQMGYdofEPJa/3rs
R7JeT0yuL7z3AV5quVmFNRTqxRYtUtlRhaWKmtve0ChU6Jw8SrOuQrOM2FIP
OoU8zw+53p5VGGRv9ZZlUHha5WtXGF0FCSnmi2tMCr4BXfHGw1UovrPPcFcL
hVXfkhVdYj/ixapvk1c6KVyo18SDsU/gak3SBwbI+6SSM/BJqBpjkKlxY1NI
itwYMS1TDUEj42SKmLZHoc1xZzVCfLeLcDgUNtQsOrc2uhqxyfdzmrkUeqq+
Jb/RqMFFdnRO8DAFHwVPs37TGuwSHL8ySjzvX/boYqcabIvy3OHylYKmUdcO
v2s1CBZ98grfKNyrrG5HWw3Cl2YcHxqhsOvdM9E6/1o0BF7bKTlGoVtWLufv
zVoYqRxYdYHYOzDOfuPTWtAcHIVbiBNwL+VeTS3aslL4osYpTBcH6h+UqQO/
3O1nAhMUMgvsfTjFdYj/9uBD1iQFI+kWGSl6HcJutnfMnqLQ6WdRYcKug4hB
+Xwb4rmau8UzROthd/d5zU9il7fqqd6H62Gz7nTtht8UlmRLdPPzN2D7hEn5
ib8UHCKmrfolG5Bds7c6lzjRdaDmg1IDjhVItPOIlRbn54fbNoBV/3TxLR4F
fR+n/xa/asDteM0ViXxcXNtrMu/X+wYcNQ0J7Seuk996tb2jAR4av/+s5efi
5eDVvAbBRhQWCCkkE6vH2SRHqTai/8hOv4cCXNhdq/0cqtUI6bNvrzcTX/LW
W35hZyMSsy2zxQW5eLdnQ5SdfSN0V7g7BBPv+fM3aMW/jQjPhKT9LC6OOCYf
SuluRGiu1HLWbC5CTJbFxHAb8Wyif5/4P1wkq99m3hhrxD372HRt4iFRf9OT
wjRw3xUP3yX2KTXT3KxOg8GzE3Fqc7iISSv3Xq1Hg/F8KX0H4qL7Gq8W7aHh
vvkV6WBifi85hYkjNHi9h1sNcYTs+KKiSHLelXPDSoiLjHke+9Mf0NB/P73X
m5j2qzs8/ikN5/MSvKKIJWkfBYLyafB7l61PI04IihvZOUCDSu/Tj3pzuag8
KaGkMULDRDHfXAditl2Y27ppGkQ+p904T6y02atbWIKOlzxX62Ti3D6D2gZt
OraWHpXlETcbB32P3EVHq0X+2oXCXPzMKJHcY0FH3e9aP3lijYuaRz660dHl
ZCthSmz72Scs7Cwdm4wPH3Ag9t2VnWZ4mQ7+JMPhE8R5C1V/lt2lYzuKF0YQ
t/qdWBbwiI5m6ZakWOJfPS926KTQMZLceSOFeNvLNeH5xXR8DXlpWz4Tf4Hz
qwsf6ZgtM65XPxPf93GTGoOOq9/XXm0jzjeUln1D0ZGetkn8K3F7qs1Or1E6
SnODD00QT4n/56Hylw73/Smz+US4kL5AvzUkxMCQmP1cIWKtLrGc1IUMrLpj
4S5GfNDArP34CgbUfXbKSxL7v7jBk1dkYLs7d4cMcazYxzUDWxhoWT6aL0dc
cH62yVNdBposJO/KE7d36J8+spuBWsbs6vXEU3qBUSutGEj1P+esMpM/pTi/
y5EBq03iDpuIt4tOdz90Z0B5NPztFmIH722zDnoz8Lz+v/NqxJfazysuDWCg
nt0RrU4ctyNrb/N1BmjeIjIaxEXJI+eiohi4+qlx9ow756nEWDxmoHNvi9XM
9b/PepaIpzIQeP3T3Jl4Mm0prPpsBjZIm6+dyacDtlBkKQPbSiVTNhI7Plut
YlrNgNiB8rvKxFdEjljObWLgYefUgCJx/Jl436oeBvLOHktcS1zS0vEo9AsD
8fapH2WJu3WkKgzGGTDnedgtI/779ADFz8eE4JCp9WLiFcJR88uEmbjU8q1I
lFjXi7b5ymIm/J/8uj1nJn+zqK22LBMS++fQeWT/rmjvuTy1ngmhZUWBM/tZ
KlRV5bODiaq8KMUB4t5Ts4a3mjKR3TG2poOYr0lvwag1E2NF5243Eu9IKHI4
7cnEoYs6BfnETnOmgpR9mDi9vcQvnTjwpMbzwUAmVIM/pT0hLtN8890tmuSv
6HMPnYn/+JukfAITf+xlJ3xm4v+jrN2fxsTrwl2TbsR69OdhTu9I/kepjsbE
5R6PltkNMXHV8mexAHEW19PT8Sd53gc6u7+T7yvpuFahC18TrO76Hu4hDj3W
cvDUoibcTY1TKSA2dpaIvardBE85Q1cPYs3PPdxrRk2QSmBYWhOvd8rQvLm/
CTZNX2kgnudo2vbAtQmduHFxIXGDXejSjIgm5OwMvZ1D6kNZq+XxrOgmaO9M
5ntE/MpmVV7ekyZU2nwSCCG+a11qU5HdhFydqpL9xAfMJ6NbO5sgPu0kN0Dq
U6fxycWCys0wcvQYniT1rq5q+1EhjWbYLL6Q2U5cYiScM1+vGdKpC4ULiR8b
Prdaat0M7yO3bvgTO+/4fE/5cjM+WV2qGCP1ldKwXmBbR+LFiHs2k/o7Lq8j
ln6yBQdoaYrmpH7r9ulX3fBtgbezvvAq4rBHxgHHr7aA7rI04Aep/5KLrL6t
jmnB0kEo3J3pB/yeDbGVLTglGnG5lvQP344Ht64ta0V7Rc8TZdJvft8aE3P9
1IrfW+7EJ01TMDSdqtJjtsJ584am48QR//AFruxpherc6ZdKxMsvi4y0j7Wi
I6lQL4v0P12PVY3msm1Y271auIj0zwDD/bdxoQ32svrHi0h/FZhME1+2th1u
qwNo/qMUltXpj0K1HUl7+2K2EW9NaGty1STnr7lK/fxB4ejuOQ8zzNpRqc/U
9SL+GOO8Vt+nHSd/Z60/8p3CLS0pLfeqdiQyFMrUyHwgcynM5a17B9YFRCSk
faGgznPKtczohMnF7+4tvRT2mJUF78zrREKfdUgYscvDlfs0yjvx5oeAmxrx
bY1ujnRzJ0SLpkPv9lDgnraX6vvTiSbtElWTbjJf9lpf8jLrwgmxeIfMDgr8
5Sb6kUNd4I0tcrFoplAbsrX+w/oeWGgX188i89nK24OTL7724nrV7twNrygM
TvR0N23sw6j45qyiKDI/fSmsFr3JAhVe5/fVm8xXy59/6+/vh3Xe0D5hK7Le
7jnHnqxhQ1DhIL/qVgo/d6T1Hw/goGFp11ScOJlvNldmS1ZQ+CWw0ubFVw56
MirDaXJfkO0Y6a/7iYNpD+ZDRf9BSC7WmyOUxMEGvTl/jxUOYd3BkGUCQRzs
SpRze73kK/oj70/UH+TgwvLDqz47fMNsZrCOoAYHSkPWIi1mI2j6vH1j10IO
FoqNCFVOjcDJ3TClcJj8D5Y+zFwd9x3KAiKCW6rZ8Nxa2DbX9Ad8VQvmVT9l
I22385OSnz9w+sXzM5pX2BgflBZnR4+i7Nj6BFt7NnIsdwlGGY7h/vTy8Hw1
NgKMQx9ns8eQuFnXmbaADbkuk9anoeOoblv3vHFkAFoaIVFSm38iY5ZxsHLt
ABxWNEzyM35iI81y947UAYxXR/Z5BU0AFaq1FaEDeDDL0dtizS8I2c6OmnIZ
wMLunESByl+o+qHzVdZgALMvB1lpnpmEtzJNsmHlAPheOGb2LZiCVWrMuzW8
fpyNzYxcUD4FUyZn98LOfhRvuCYkcWoaocvkG6bz+yFhclYpWPQ3wr94ql+K
7UenciPDr+g3ZPMvTr/w7cereKzpd/wDb4ZxyzG7fhzKVJdY/vcPWo4XqM/b
3o/A0ISgztS/ONHe8PCMdD/SqeUPRffwICQl+93yNwvXHoU6de/lodVg75r6
aRZcLYbXZpjzsPixyyFjYpmioldmNjykXDL4rD3Fwo1b9h8inHlwYzNV5X+x
cFw95ruwHw8TSfLU5CgLq0IWGc9J5iHi4LvKZ4Ms/N12aX5LCg9qU4+zZYnb
hln05DQejPScUx9+YeG2TdYho9c8CJrdeX6HywJvvcW50CIeuELR1GUOC520
W/GCDGKFlaE2LBbywiZcGE08NLMUGfQ+FqK2H1Z82srDeVtJhb3Eps9UsvW7
eTg2dK/X8DMLBb51n4K4PNzXWRG7uYeFaGW1W+ZDPOzX3bIko5uFM31xVnLf
eDD+uS5WkXjdnhM9ZWM8aM/NfS3bxcIsfmbS7QkenqwyM4rrZKE3Z7uH0xQP
4l6VvUuIizyeqm78w8PlxmVB9zpYuL9SZJzH46F4laWCGPH/Hix3Vg==
       "]]},
     Annotation[#, "Charting`Private`Tag$2796#2"]& ], 
    TagBox[
     {RGBColor[0, 1, 0], Thickness[Large], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13c4Vu8DBnAaUopIRaUSWkQZScMtFaISJUokoSJFhG9LRD8VkSQiOxkZ
KZuMSMme7zLfcVTKSkXx/p7+OtfnXM8Zz7nOee77yNpeMrWfISAgoCooIPBv
a2g/0Fz+2V5bLMnpQe3Tfszas8ylR3ovnDTcN9AT+qEWGxH9WvoodFRb7tPT
+mFU35nzTNoO3ORExeyifpjb/SoNlXZH66FeuwJ6P7pU/rcnSNoPnal1A8aL
2YhbbHznnnQYDq1MN7e9zca1+idVx4rCoGb32oN9l41j/r0z5CwfI6VHnHk8
hI35467exdHhGP1+s3HtMza82sK8BldF4vJUI2NPHhsmjxiOh9bGIHV1sPEz
Hhs+wq/X3ZVOQiTfr8RCh4ON+g8DclySQDuvVrFCj4MW/0ufmTVJSH7YMbfT
iAP5mUrpyh7PURX3tVDZnIP3U0nKbS3JmDG2u/6CMwfzx8I1VgWmQq8gt1Y9
goOIrqt7cqczUfLyO9+V4mD3iuNJ3WZZUNX9WLVmkIMvJzRnC2dkQTb/1My6
YQ5WDv53JmNTNgxONq8XnuTg0vmtCgKsbDR1/UpdP58LCbuslOfbcjAscDt/
iQoXFsfjs4ZH3uDYhpwXgi5cDDGPzktYloueyADfp25c3LEWtj+yJxeNDaOb
lT25eH3m0rK8sFy81clT1LvJhejFXf7XNPOgXCZzXyuQi2pf+gmhG/l4JJex
V+MFF6ovxYVWCBfhtfXDZ/l0Lj4qV9vUby7CWLFsbBGLC5tXXsU3jxfhf4Zi
Fwp7uAjK63HpSyvCT+F23zQuFwPlGczkg8VI6Kw6aTnCRUz7/ldbHpXgpd8n
y6k5PIjwfU7qryzDC8HxwguqPEScN7dW0isDK6ji5oA6D/JtSjbiF8vA3x4+
ZKPJg3Zq5xlmaRlMS0YG9HfyUJganpuvXA67oYiK7/t4+HZksMSooRxHTs9f
m2TBg1nKk09uCyqRevZha901HqKtfA84yFbi5hR7mHeDh34J53oLjUq804vS
m/bm4dIN3cZdVpWQ189Pk/fj4a7pt5Y5GZU4Hx5RfjiQh9K/uoyoA+/gTx2w
2xDNg4LJ94F396sQ2RG4Z7yQh2Xe+tvPxleR/S8FOMU8LMyIuz8vvwq9F+X+
NpbyMCl8RNmkvwrHAwZLYyt4aCrPd+veVo1lVssZKz/ycHWzz/RvbjXcTy2p
ienkoUFMUlJZpwYVmfyEt6M8vNvlbN9sVoOdk/2mJ3/wUOD0Ps/dqQaiS2k5
v8Z5SKzxOl4cXoMT8aHB6yZ48PLuijH4VoMn740XXeDzsGYoecOZpx8w09j7
yz0RCp4NWoj48RGxAlEC6msoiCrncj8K1yJjxMLZQ45CUtDmwD8ravH7YJ5C
vjyF5gPr6Nb7ajGw65GP2joKip8k3RTCa1HIn1oppUShp2YoOUfzEwTXhmSF
alDQr3guWn+1DvGml3xP6FPoXi2bO/2gDmXGWhsdDSi434q23JxYh5LSeSe8
9lOIx6OUR5/qYHvoiUWIEYU/pbd0T6yox+5DDwWyjClkFVl6UKX1CFha6pxi
TmHpG/FuQcFGTLNcGsIdKJwM/HOUs6QRtC7NqKCzFBLsuJ/eKzVi1VyHz77n
KCgtLiy8b9GI/TRV8fOOFHQ9bB4vzm5EWU1wudxFClujzZPDVJogE39T4egV
Cqetk61Supug2hJY+NKXgp/h8sjIz02Qm6oR9LxNIXlrSNu9H00YcjEW0PGj
MCh61ch5XjM487C2wZ+CR9lBLdWtzVCXngtmAIXA1eOSJUHNUFC6NVD4gEJe
/566xp0tkPk03hQaSaHDwGckSL8FrntZyWpPKfzMfLvkgGkLXhYbn28l1rym
dfrD2Rb03H9SIBZNoWCRys/y0BY8ptnFX4uhULh32eqcgRb8MQqMlk2kwEgz
3+cy1oLQwKLqV8STCx87Kk+34JH28286SRS2d4nlpi1qRZqakPbJ5xSKrsw2
TNRuxRsJAf6dFxRKkofdwsJaIS7p/C0jnQJrvnKkaWwrugZ9fJRfUvh72ent
wrRW4K6QQibxLvCEg8paYRNjGZOWQeFtJ/OZ/xdyPqvWKxFZFMqEa2o8dNog
tDEjxOA1hUrHZ8uPD7bBq/vKpEARhdefnZysf7Zh23LxKGvipHPbi88ItIPx
dPp2MbG/Q+eJi5LtGNEI2eJWTMHAVvzp7Z3tcP0aI8ooodB43F8qM7Addtkm
DnfKKJTTjpx7Hd4OumYfi0acbb6moCCuHanp9skbyymEmpWZv3vTDguKoV5H
fMxkIpzGaocsR9FkTiWZr4Hz4pmbOjB5IF3CuopCfc0Oe2HNDkiIRM1MJn6r
Ny93we4OJNifNvlGHLv3xVEpsw5ciGqefbWagq1O36NNNzowEJ3ff/89hQFN
MwmL+g40CSl8f/iBAj1PztaqswN/qg+PNhLXaoy+su3rwHc/v5MLPlJIVws2
cR7vwKp8Lfs7xBdVPob4ynSiYVrF3LWWwvjaXWIZzp3YEzyqoVhHQbtft+ae
VydctUf32RHfeWbgfe52J9bTZ6dHEy+RPDokF9mJdRnCniL15H0XdGp8WtUJ
yays9X3EXsyI4IDlNEivDfFxbiTPLzxG32EtjeTOd5VoYmHTJP6eLTREB97Z
VUsc+SHrEl+PhpVjrV7yTeT9yX1v7HGZBvct7281E/8N/iFm95EGZnbTCdEW
CnuNJmt2t9EgK2q7V404UEjg1qoeGoZkIsPNiWVuiAwzftAw99wOzxhibcc1
TSar6RhwFtRSaCXzUVgfoKJIx+WWK577iBt6N+ks2ErHLJnZcvbE1uZa2R+M
6Nj+KeFdArH33sMh8KTjzc6/WkvbKHzgmxnI+NIhNuE8rEq8sNhS4E8gHdoa
+lKHiOO2nHXJS6Ajt9HwrS9x+cqbhzc10PHCQeUyl1iYcVtYhE7HGp2rlX+J
Dz++Wz7ApqPV2jRgUTuFPpHHm5MmyHiFHA8Qz5hIX7hcgYGDH/YNhhAvr9cd
gwoDz29Z5CcQq8fT2+20GHCu0Fzwhth+/5yozIMMjKv9ONFOfFMm5karOQNH
/aOPcInDR9Rtfp9mwDX2Be0H8YdIWwVdDwZyWJ53JTrI9Z0n5py9xYBd06y8
1cSTu0O+3L/HgIiKn4sysdKX0qz2GAaMzLghBsTB26W3n69hwIo3cNeTOEU0
e8WDZgbUXr7b7Etc3q/Hz2EyINAQfS6QePSee9XfIQbyEj8ExhKLnBJ5ITvJ
gF4s/b8UYnm1hLt6s5iQ/5/9RDbxMWbjoRApJsSuOLwqJ76U5bAldw0Tu3LD
v9QQB9yeWsRQYmLoWEF+A3GcedjP6a1MdAqtl24nLlRUpMvtZsJaQleMSdzC
ryg2MGJC9pzt017iL60WMc5mTJhHcIq4xDNThm6FnmLCvl3O9Qvxiut3zuSf
Z0Lzx9XS78Qah2X0WG5M1F/YGzdKfEj+zXrBm0wkn2BI/yR2+G0osjaACbUb
4RsniL3r+r4ZhjJxaFtLyx/iiDivpkvRTLwM40lME2e7i70OS2bimI7SVz7x
R4Pkx4XZTIgE/7EU7KTQv2KXV3cREx+vvrSfQfxnuPXEzGpy/0nhwjOJJasd
d61vZKLCVHzfP2+KFFx9kM5E4xW35f+s5xwx4zKbCcekRYH/jj+1W4Ub/o0J
4ZUGT/6d32vx+5riX0xQtQ67BIhDPp9M6xVkwX9n9c1/95daOhY4ez4LvzMK
LP8SVz68d2njEhbcZ4W3/Zsfw17W1Hg1C2GNrz7/m/+YVoG6+0YW2PttosaI
54saL41UZ0Hj+PjnIWKFfu5EqTYLi4Kr2r8Sa+ddZ/UbsLBug+wpitjFOi1e
yYqFhz31Rl3Ed1V3+5mcZcG5szKrkzhBiObg4crCqa8PcpqJWzNnK5X7s7Dw
yejjKuJB32hRbjALhteUPEuJZ5mrjcx9yoLJYt/fucRb+TZ5RzJZ8AyqYD0n
PnCw3HdfAQvScx5deEZ8JmqVsWYlC16bL8aHEYdodlPLOlgw93b640Oc7L/r
zfxeFoJ4srJexCWt0bemP7PwyGfeN2fiz5cspfunWLCpfOJlQSzwtojbOqcL
9hcbth0kXjJ/WU61eBcsLC3jdhPrptAMUxW6MD0d4bCBOLrX7LrLwS68cbrW
+e/7zFHONbA170LWPG0G79/3el1y8dHTXZgce3iHRjwu1ZqheaUL0dJCXUXE
h0wO90xHd2G/VknANWLBSkPdoMEuXHrqtPQbWW+kFqaJev/swsELT1rpxMrW
c5kuAt1wuxex6z3xickat6OS3TjFXbMihviN6r7ny3d2o17Ub54hsUMihNPu
d2Pue1FuKFkfr4/EtEU97gb7rdCzq8SPMB0XFNsN6a10IVvicmaJluvrbvRW
Co2oEEtLbnfaxuzGz0T9tR/I+lznp97wfmMPskrL9n9pJn1C7NOMhxo9GGy7
WF5LnBJ5WtNSpwdSjlE9acS3Mx/EDZn1YJlKpJTjv/G0gctSPj1Iyze6wSF5
kaL4bKljZw/k9pSbfCT5ovvZN1tItxcqg73SZiSf/lNuqHXS70XODgMlReJs
N2lu04FetDTPHhYgXjmdJR1l3otXskGB6STvJiS6fFWceyHuwV899YmM36lp
ZhHRi/elO4cfkvxcFfJ1IvV7L5yXN/bdriF5fto7NWesF9crb4scJbZWW3S8
+Hcv/jd+95cccXTH9oK6GX3Yr2O49B3JcymZex5DS/qw6u+nq9Mk7yXS1o+p
ow99kbTJ86QPzK6yHywL7kOu+8jKxRUUvv7q6W7f3I/EJVOe1YWk/50NrjTc
2o+vDVqnfYlvdWonl+3oR4FfiiiIl+Q/c07V60etQm9efsG/vmr59/rJfizY
MF83OZ/C0x8d0vIB/Ug/5eDslUv60Ej90cs9/bCI6Dg1mk3605fiWtEHbCzY
InxBj/Q5UZkXQxwOB86/3LxXh5L8PZ/rECfPQ6S6zS3166Rv6qRzznmT56Qi
cPeyLennqlVvlrwbgFXxfIku0td7MqvuN8t+wZTp7b4KRbKeObZFbbj6Ffv6
PqfNESX/A7vnTDsUD2JZo2im+wgP+gmyZ18t/Y78h0OpRc08eMqcWtN3cgi6
VP7he695UBo0E+k8OAyhGF9Z/8c8LBIbFq6aHMaqlXM8wtx5mFUWlSUXPYKm
1B0FoWY8OKkX0+cajWJU9veDCjUe0vfbxr39OQoj2Luel+Bh/OuyhbzwMZyt
sNm3c4yL3CP6M8P2/oCHmlirXTMX3gb+sW94P9Ar/Xt90ysuZLsMaYn+40is
PufJDeViu6ZfmLTqT0h5Vtk5u3JxcmXjhGDrT5ixZjQcMOVivDao38XnFxar
CZVnb+YiYpa1u6n8b2QoVo27iXOxqDs3YUbVb+xlpun8GeVg9g2fo1quE1hG
WX2TaeFAINU6q19iEnbr3RQTXnNw+WlWkETlJDgctbvNoRyUKgYIi1/8gzWj
dV7tlzkQN7ys5Cv6F36HJh5vNeOAtamp9b+Sv2iJF44/psFBdgzkOdZT2HCN
dqFpKQdWWVvFZaanYMQwlpf6w8Yt/3gfVto0jnNbIjez2MgYkIkSPcDHChpP
J6KMjYBn/jbdh/j4WG27XJrYzvSbQqYJHzUDTyYj37KxoqQk+6A5H6WPlGui
Stm4F2z5PtCWj6E2icjYYjbObY0cmfcfHy3z+1al5LOxxk/SYE4yH7PD6UUl
WWxMb7u+oDOFD5fETiVtYvo3dktyOh9qKWGJZZlshJi/ttJ7xYeK7oHYygw2
+BtN3fxL+LA4ltf4IZ0NVnNwzMxWPvYbPpXseMFGwZ1fZ1rb+VC1jmoxJw7b
cWpDIo0Pq79Wj+nJbBg9V36j282H0ZX1G7qes1HkVf/R5zMfD2I77nIS2Qjf
pBFsMshHz4EBZwdi1/7oo7JDfEgVlxwbSGBj/YELPeU/+GC7Zm4djGdjlmBb
UsgvPlpn1226SNybu8PRZpIP65GXG4bj2ChxTFTZPMVH4XGTjZeJn6wSGefz
+eCcKVT5EcvG/wFg8Bcx
       "]]},
     Annotation[#, "Charting`Private`Tag$2796#3"]& ]}, {
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
     None], ArrowBox[{{1.599506757145675, 0.769491529401721}, {
      1.3286544595875824`, 0.7010054471491938}}]}, InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=0.6",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {1.363636361932966, 0.7776233645955803}, {
     Left, Baseline},
     Alignment->{Left, Top}]}, {InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1.5",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {0.1949281266101922, 0.6028871032675829}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{GrayLevel[0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[
     None], ArrowBox[{{0.4089761622178033, 0.6267490976988666}, {
      0.1564230521971376, 0.7005566408882379}}]}}, {InsetBox[
     StyleBox[Cell["\[Gamma]-\[Delta]\[Omega]=1",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontFamily->"Times New Roman",
      FontSize->20,
      Background->GrayLevel[1.]], {0.7991089845168847, 0.7977097189244304}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {AbsoluteThickness[1], StrokeForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 
     EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
     EdgeForm[None], 
     ArrowBox[{{0.7734915437344326, 0.800726704668657}, {0.3527473698114663, 
      0.7832738777483412}}]}}, InsetBox[
    StyleBox[Cell["a",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontFamily->"Times New Roman",
     FontSize->20,
     Background->GrayLevel[1.]], {0.005471380414243332, 0.8100266484748743}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["\[Sigma]",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontFamily->"Times New Roman",
     FontSize->20,
     Background->GrayLevel[1.]], {1.9351851827890003, 0.5772210914606748}, {
    Left, Baseline},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\[Sigma]", TraditionalForm], 
    FormBox["a", TraditionalForm]},
  AxesOrigin->{0, 0.5813954145097585},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{35., 5.428571}, {24., 0.5}},
  ImageSize->{394., Automatic},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 18],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.04166666666666667, 2.0416666666666665`}, {0.568007921116221,
    0.8357577889869707}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.8679561754374504`*^9, 3.8679562060911703`*^9}, 
   3.8679562376073847`*^9, 3.867956278652096*^9, {3.867956391203*^9, 
   3.867956415053773*^9}}]
}, Open  ]]
},
WindowSize->{759, 637},
WindowMargins->{{Automatic, 380}, {Automatic, 64}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 120, 1, 70, "Section"],
Cell[703, 25, 767, 23, 68, "Input"],
Cell[1473, 50, 2784, 56, 107, "Input"],
Cell[4260, 108, 22605, 422, 371, InheritFromParent],
Cell[26868, 532, 22494, 418, 371, "Input"],
Cell[49365, 952, 389, 5, 30, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49791, 962, 103, 1, 70, "Section"],
Cell[49897, 965, 886, 24, 53, "Input"],
Cell[50786, 991, 1971, 49, 126, "Input"],
Cell[52760, 1042, 20410, 363, 259, InheritFromParent],
Cell[73173, 1407, 21043, 383, 258, "Input"]
}, Open  ]]
}
]
*)

